lien hypertexte VBA Excel

[Lecann]

J'aimerais connaître la syntaxe pour, dans une macro, demander de créer un lien hypertexte d'une case d'une feuille vers une autre feuille du classeur(style sommaire interactif), mais dans une boucle, et donc ou le nom de la feuille visée n'est pas écrit explicitement, mais repésenté soit par une variable(NomFeuille=ActiveSheet.Name par Ex.) , soit un nom incrémenté (style "Feuille" & i).

Merci

 

[michel]

bonsoir Lecann

la macro ci-dessous créée dans la feuille active des liens vers les autres feuilles du classeur

Sub CreerLiensAutresFeuilles()
Dim I As Byte, J As Byte
Dim Val As String

For I = 1 To Sheets.Count
If Not ActiveSheet.Name = Sheets(I).Name Then
Val = "'" & Sheets(I).Name & "'!A1"
J = J + 1
Worksheets(1).Hyperlinks.Add Anchor:=Cells(J, 1), Address:="", SubAddress:=Val
End If
Next I

End Sub


bonne soiree
michel