Discussion :

[oscar.cesar]

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[oscar.cesar]

bonsoir
ok merci