Création automatique de bouton

Résolu/Fermé
Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016 - 2 sept. 2016 à 08:39
Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016 - 5 sept. 2016 à 10:44
Bonjour à tous !!

J'ai une feuille qui me donne des liens hypertexte vers tous les autres onglets , j'aimerai adapter ce code pour qu'à la place des liens, cela me fasse des boutons qui ferai la même chose que mes liens et je ne sais pas du tout comment adapter mon code ...

Mon code est le suivant :

 
Private Sub CommandButton1_Click()

'Lien vers les différents onglets du classeur

Dim i As Integer
Dim Menu(2 To 50, 1 To 1) As Variant
Dim FeuilleActive As String

CommandButton1.BackColor = RGB(100, 149, 237)
CommandButton1.WordWrap = True


FeuilleActive = ActiveSheet.Name

For i = 3 To ThisWorkbook.Sheets.Count

If Sheets(i).Name <> "Menu" Then

Cells(i + 3, 1).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name


End If

Next



Sheets("Menu").Cells(1, 1) = "Liste des différents onglets du classeur"

End Sub


Si quelqu'un a deja fait la même chose ou a une idée pour me venir en aide cela m'aidera beaucoup !!

Merci :)

A voir également:

1 réponse

cs_Le Pivert Messages postés 7860 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 2 décembre 2022 723
2 sept. 2016 à 11:50
Bonjour,

voici une autre approche plus rationnelle:

http://www.cjoint.com/c/FIcjXgWwg1Q
1
Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016
5 sept. 2016 à 10:44
Merci, ça s'approche de ce que j'aimerai faire, cela m'aide, je vais surement voir pour prendre cette option

Merci de ton aide le Pivert :)
0