2 réponses
via55
- Messages postés
- 12989
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 10 avril 2021
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