Discussion :

[issoram]

J'aimerais bien le savoir...
Et pourquoi l'exécution continue t'elle normalement ensuite?
Ca plante sur les plages non contigües on dirait.

[fring]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
 
    Dim cell_mail As String, mail As String
    Dim Feuille As Worksheet
 
    cell_mail = "A1"
    mail = "toto@toto.fr"
 
    For Each Feuille In ThisWorkbook.Worksheets
        With Feuille
            .Hyperlinks.Add Anchor:=.Range(cell_mail), Address:="mailto:" & mail, TextToDisplay:=mail
            Debug.Print .Name
            Debug.Print Union(.Range("H5:I5"), .Range("K5:L5")).Count
        End With
    Next Feuille
 
End Sub

[issoram]

Merci,

Effectivement avec union ça marche.
Pourtant la syntaxe Range("<liste>") est correcte... en plus j'en ai besoin.

Et pourquoi ce code plante???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
 
 Debug.Print Worksheets("feuil1").Range("A2,A4").Count 'Affiche 2!!!!
 Worksheets("feuil1").Hyperlinks.Add Anchor:=Range("A1"),   Address:="mailto:" & "toto@toto.com", TextToDisplay:="toto@toto.com"
 'Et ensuite génère l'erreur: la méthode Range de l'objet Worksheet a  echoué!!!
 Debug.Print Worksheets("feuil1").Range("A2,A4").Count 
 
end Sub

Je capitule!