Lien automatique sur onglet

[fouedou77]

Bonjour à tous,


Je viens de trouver une macro pour créer automatiquement une liste des onglets.

Ma question est la suivante :

Est-il possible de créer des liens en plus, sur cette liste, pointant vers leur onglet respectif ? 🙂

Voir PJ

Merci pour votre aide

 

[GIBI]

Re : Lien automatique sur onglet

Bonjour,


pour créer un lien hyper texte (j'ai utilisé l'enregistreur de macro)

For x = 1 To Sheets.Count 'boucle sur tous les onglets
Cells(x + 1, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(x).Name & "!A1", TextToDisplay:=Sheets(x).Name
Next x 'prochain onglet de la boucle


tu peux aussi associer un évènement



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Len(Target.Value) <> 0 Then
Sheets(Target.Value).Select
End If
End Sub

 

[fouedou77]

Re : Lien automatique sur onglet

Merci pour la réponse.
Par contre je ne suis pas certain de comprendre ...
Peux-tu me le montrer dans mon fichier stp ?

 

[GIBI]

Re : Lien automatique sur onglet

Bonjour,

Moi je ne comprends pas ce que tu ne comprend pas

j'ai mis à jour ta macro "Worksheet_Activate" + attaché le fichier sur le message précédent