Lien hypertexte VBA

[Wildrack]

Bonjours à tous

Jaimerais créer un lien hypertexte en VBA pour passer d'une feuille à l'autre dans un même classeur excel

Merci pour vos réponses

 

[myDearFriend!]

Bonsoir Wildrack,

On ne le dira jamais assez... l'enregistreur de macros est un outil in-dis-pen-sa-ble !

[ol][li]Tu fais menu Outils / Macro... / Nouvelle macro, puis OK.[/li]
[li]Tu sélectionnes la cellule A1 de la feuille 1[/li]
[li]Tu fais menu Insertion / Lien Hypertexte...[/li]
[li]Tu choisies 'Emplacement dans ce document'[/li]
[li]Tu tapes 'A1' (sans les guillemets) en référence de cellule, puis tu sélectionnes en dessous 'Feuil2' et OK.[/li]
[li]Puis, menu Outils / Macro... / Arrêter l'enregistrement.[/li][/ol]

Dans l'éditeur VBE, tu obtiendras quelque chose comme ça :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/09/2005 par mDF
'

'
      Range('A1').Select
      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='', SubAddress:= _
            'Feuil2!A1', TextToDisplay:='Feuil2!A1'
End Sub

Que tu peux ensuite simplifier comme ça :

Sub Macro1()
      Sheets('Feuil1').Hyperlinks.Add Anchor:=Range('A1'), Address:='', SubAddress:= _
            'Feuil2!A1', TextToDisplay:='Aller en Feuille 2'
End Sub

Cordialement,