groupe propriete commandbouton

bonsoir à tous
j'ai qql question concernant les commandbouton.

j'ai 13 commandbutton que je desirerai initialisé .
a) il y a til une commande ou un code pour faire cela sur l'ensemble les boutons sans etre obligé de le faire pour chaque bouton individuellement ? (je precise que tous les boutons ont la meme action (voir B)

b) lorsqu'un bouton à ete cliquez , je souhaiterai le faire changer de couleur (par defaut gris), ex qu'il devienne VERT et que l'instruction lance , pour l'exemple msgbox ("coucou bounton " & x) ou X est le n° du bouton cliqué ?


merci

Tu peux écrire les procédures des 13 boutons par le code.
La macro pour placer le code des boutons dans la feuille de code de la feuille de calculs.
En supposant que tes boutons soient dans la feuil1 de ton classeur, que les boutons aient tous le même code... un exemple de code à placer dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub EcrireDuCodeDansUnModule() Dim i, j, nomFich, x As Long Dim tablo(3) nomFich = ThisWorkbook.Name 'Nom du classeur concerné à adapter For i = 1 To Application.VBE.VBProjects.Count If InStr(Application.VBE.VBProjects(i).Filename, nomFich) <> 0 Then For Each LeModule In Application.VBE.VBProjects(i).VBComponents If LeModule.Name = "Feuil1" Then For Each LeBouton In Worksheets("Feuil1").Shapes tablo(1) = "Private Sub " & LeBouton.Name & "_Click()" tablo(2) = "Msgbox ""Je suis " & LeBouton.Name & """" tablo(3) = "End sub" For j = 1 To 3 x = LeModule.CodeModule.CountOfLines + 1 LeModule.CodeModule.InsertLines x, tablo(j) Next Next End If Next End If Next i End Sub

---

NB - Le classeur doit être enregistré pour être identifié comme projet par la macro.
A+

bonsoir
ok merci
:king: