Discussion :

[kikou63]

Bonjour,

Je souhaiterais modifier la couleur de fond d'un commandbutton en l'appelant à partir d'un nom de variable (qui correspond à la propriété caption du bouton). Je voudrais inclure le tout dans une boucle d'itération... et je patauge lamentablement ! Si quelqu'un peut m'aider merci par avance...

Code :

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

1
2
3
4
5
    Dim Anim As CommandButton
    For a = 1 To 7
        Set Anim = "ADA" & a
        Anim.BackColor = 5
    Next

[mercatog]

Ton boutton est sur une feuille ou userform?

[kikou63]

Les boutons sont dans un userform. Il y en a une cinquantaine.

[BenjGe]

Code :

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

1
2
3
4
5
6
7
8
9
Dim but As Control, a As Long
a = 1
For Each but In UserForm1.Controls
    If TypeName(but.Object) = "ICommandButton" Then
        but.Caption = "ADA " & a
        but.BackColor = 50
        a = a + 1
    End If
Next but

[SilkyRoad]

Bonjour,

Une autre possibilité :

Code :

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

1
2
3
4
5
Dim i As Integer
 
For i = 1 To 7
    Me.Controls("ADA" & i).BackColor = 5
Next i

bonne journée
michel

[kikou63]

Merci Michel et Benjamin,

Les deux solutions fonctionnent très bien et je vais pouvoir continuer dans mon projet. Juste pour info et par curiosité : j'avais entre temps fait une boucle

Code :

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

1
2
3
4
    Dim Anim As CommandButton
    For Each Anim In Controls
        Anim.BackColor = 12640511
    Next

[BenjGe]

le problème de controls est qu'il englobe tous les contrôles de ton userform.Donc si tu ajoutes autre chose que des commandbutton il seront aussi pris dans ta boucle. C'est pour ça que j'ai rajouté un test par rapport à ta boucle.
La solution de silkyroad ne rencontre pas ce problème car elle appelle les contrôles par leurs noms en supposant que tes commandbutton ont été renommés "ADA ..".