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.
Comment faire ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager