Lien Hypertexte glissant
Résolu
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
2 réponses
-
Bonjour Nathan
Modifie ainsi ta macro pour créer un lien hypertexte pour chaque ongletSub 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
-
-
@nathan01983Bonjour
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 -
@via55Tu déchires tout MERCIIIIIIIIIIIIIIIIIIIII
-
-
MERCI BEAUCOUP !!!!!! C'est encore mieux que ce que j'espérais
