Variable sur les objets

bonjour,

j'ai un formulaire avec 18 boutons que j'ai besoin d'activer ou desactiver régulièrement

j'utilise le code suivant que je répète 18 fois

Code:

---

1 2 3

Bouton1.Transparent = False Bouton1.Height = 455.9

---

c'est un peu lourd ... et pas tres lisible ... est il possible de "variabiliser" le nom du bouton pour faire un truc du genre :

Code:

---

1 2 3 4 5 6

For i = 1 To 18 Bouton = "Bouton" & i Bouton.Transparent = False PBouton.Height = 455.9 Next i

---

Salut,

Code:

---

1 2 3 4 5 6 7

Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.ControlType =acCommandButton Then Ce que tu veux faire sur tes 18 boutons   End If Next ctrl

---

Hello,

soit tu fais comme te dit ft... soit tu utilises la bonne syntaxe

Code:

---

1 2 3 4 5 6 7

For i = 1 To 18 With Me.Controls("Bouton" & i) .Transparent = False .Height = 455.9 End With Next i

---

Citation:

---

Envoyé par lololoic

bonjour,

j'ai un formulaire avec 18 boutons que j'ai besoin d'activer ou desactiver régulièrement

j'utilise le code suivant que je répète 18 fois

Code:

---

1 2 3

Bouton1.Transparent = False Bouton1.Height = 455.9

---

c'est un peu lourd ... et pas tres lisible ... est il possible de "variabiliser" le nom du bouton pour faire un truc du genre :

Code:

---

1 2 3 4 5 6

For i = 1 To 18 Bouton = "Bouton" & i Bouton.Transparent = False PBouton.Height = 455.9 Next i

---

---

super merci !! ;)