Création automatique de bouton

Résolu/Fermé
Signaler
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016
-
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016
-
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 :)

1 réponse

Messages postés
7612
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 novembre 2021
672
Bonjour,

voici une autre approche plus rationnelle:

http://www.cjoint.com/c/FIcjXgWwg1Q
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016

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 :)