[VBA-E] Problème pour coder une boucle

J'ai le code ci dessous qui se répète 20 fois avec le numéro en gras qui change seulement.
J'essaye de le remplacer par une boucle For Next mais je bloque à un endroit.
Je veux faire varier le numéro en gras seulement de 1 à 20 sachant que ca fait partie du nom du contrôle.

Code:

---

1 2 3 4 5

If CheckBoxzing1.Value = True Then Sheets("feuille de commande").cells(ligneutile1, 1) = CheckBoxzing1.Caption Sheets("feuille de commande").cells(ligneutile1, 2) = Refzing1.Caption Sheets("feuille de commande").cells(ligneutile1, 3) = TextBoxzing1.Value End If

---

Comment faire ?

bonsoir

Les contrôles sont dans la feuille ou dans un UserForm?


michel

Bonsoir,
Merci de votre réponse,
oui les contrôles sont dans une user form.
Il y a 20 cases à cocher et si elles sont cochées lorsque je valide les "info" sont collées dans de cellules.

Mano

Tu peux essayer

Code:

---

1 2 3 4 5 6 7 8

Dim i As Integer ' '... ' If Me.Controls("CheckBoxzing" & i).Value = True Then ' '... '

---

michel

oui, ou tu formates "l'index" de tes contrôles CheckBoxzing01 CheckBoxzing02, Refzing01, 02,... auquel cas tu peux faire

Code:

---

1 2 3 4 5 6 7 8 9 10

'(For noCol = 1 to 20) For each LeControl in userform1.controls Select case Left(LeControl.name, len(LeControl.name)-2) Case "CheckBoxzing" Sheets("feuille de commande").cells(ligneutile1, NoCol) = Control.name.caption Case "Refzing" Sheets("feuille de commande").cells(ligneutile1, NoCol+1) = Control.name.caption Case "TextBoxzing" Sheets("feuille de commande").cells(ligneutile1, NoCol + 2) = Control.name.Value ...

---

Juste pour l'idée car là on ne sait pas comment tu places tes vingts données, 3 par 3 sur des lignes différentes ou sur vingt colonnes différentes ni si tu as 20 types de contrôles différents (ce qui ferait beaucoup...) ou 20 fois les 3 mêmes ;)
Tu dis
A+

Merci, j'ai effectué les modifs de SilkyRoad et c'est impect.
Je serai plus précis la prochaine fois^^

Mano