Voilà, j'ai un classeur d'une ciquantaine de feuilles. Mon idée est de
faire une feuille qui me sert d'index dans laquelle je souhaite faire
plusieurs menus déroulant qui lorsque je choisi mon titre d'onglet
m'ouvre directement la feuille concernée... Mais voilà je ne sais pas
comment commencé.
Merci de me mettre sur la piste.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Crée une page d'accueil avec des hyperliens vers les onglets.
http://cjoint.com/?cchwImavQQ
Sub sommaire_hyper_lien() Sheets.Add before:=Sheets(1) ActiveSheet.Name = "Accueil" ActiveSheet.Tab.ColorIndex = 3 Range("c4") = "Sommaire" Range("c6").Select For i = 2 To Sheets.Count x = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x ActiveCell.Offset(1, 0).Select Next i End sub
Crée une page d'accueil avec des hyperliens vers les onglets.
http://cjoint.com/?cchwImavQQ
Sub sommaire_hyper_lien()
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "Accueil"
ActiveSheet.Tab.ColorIndex = 3
Range("c4") = "Sommaire"
Range("c6").Select
For i = 2 To Sheets.Count
x = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x
ActiveCell.Offset(1, 0).Select
Next i
End sub
Crée une page d'accueil avec des hyperliens vers les onglets.
http://cjoint.com/?cchwImavQQ
Sub sommaire_hyper_lien() Sheets.Add before:=Sheets(1) ActiveSheet.Name = "Accueil" ActiveSheet.Tab.ColorIndex = 3 Range("c4") = "Sommaire" Range("c6").Select For i = 2 To Sheets.Count x = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x ActiveCell.Offset(1, 0).Select Next i End sub
