Lien Hypertexte glissant
Résolu
nathan01983
Messages postés
344
Date d'inscription
Statut
Membre
Dernière intervention
-
nathan01983 Messages postés 344 Date d'inscription Statut Membre Dernière intervention -
nathan01983 Messages postés 344 Date d'inscription Statut Membre Dernière intervention -
Bonjour à toutes et à tous
Je vous expose ma demande
J'ai un classeur excel dans lequel j'ai une série d'onglet qui ne fait que s’agrandir pour le moment 32 onglets ... mais de plus en plus bientôt.
Dans le premier onglet que j'ai appelé "Liste", je retrouve la liste de mes onglets via un bouton VBA (la liste se met donc à jour dès que j'ajoute un onglet et que je clic sur mon bouton). Jusque là ca va.
Ce que j'aimerai faire maintenant c'est créer un lien hypertexte qui m'enverrai vers l'onglet.
Je vous joint mon fichier. Ca sera peut etre plus clair
https://www.cjoint.com/c/KCwlO0HlRQX
Merci d'avance
Je vous expose ma demande
J'ai un classeur excel dans lequel j'ai une série d'onglet qui ne fait que s’agrandir pour le moment 32 onglets ... mais de plus en plus bientôt.
Dans le premier onglet que j'ai appelé "Liste", je retrouve la liste de mes onglets via un bouton VBA (la liste se met donc à jour dès que j'ajoute un onglet et que je clic sur mon bouton). Jusque là ca va.
Ce que j'aimerai faire maintenant c'est créer un lien hypertexte qui m'enverrai vers l'onglet.
Je vous joint mon fichier. Ca sera peut etre plus clair
https://www.cjoint.com/c/KCwlO0HlRQX
Merci d'avance
A voir également:
- Lien Hypertexte glissant
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
- Lien copié ✓ - Forum Google Chrome
- Comment renommer un lien hypertexte - Forum Word
2 réponses
Bonjour Nathan
Modifie ainsi ta macro pour créer un lien hypertexte pour chaque onglet
Cdlmnt
Via
Modifie ainsi ta macro pour créer un lien hypertexte pour chaque onglet
Sub Snamelist()
Dim i As Integer
Range("B5").Select
For i = 2 To Sheets.Count
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Cdlmnt
Via
Encore merci pour ton aide, j'aimerai savoir s'il est possible de faire la meme chose non pas en ligne mais en colonne ?
Cordialement
Il suffit dans la macro de décaler chaque fois d'une colonne au lieu d'une ligne, donc remplacer
ActiveCell.Offset(1, 0).Select
par ActiveCell.Offset(0,1).Select
Cdlmnt
Via