désigner un commandbutton avec une variable

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:

---

1 2 3 4 5

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

---

Ton boutton est sur une feuille ou userform?

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

Code:

---

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

---

Bonjour,

Une autre possibilité :

Code:

---

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

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:

---

1 2 3 4

Dim Anim As CommandButton For Each Anim In Controls Anim.BackColor = 12640511 Next

---

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 ..".