boucler sur les CheckBox

bjr à tous
je voulais savoir svp s'il existe un code qui peut remplacer

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() CheckBox1.Value = 0 CheckBox2.Value = 0 CheckBox3.Value = 0 CheckBox4.Value = 0 CheckBox5.Value = 0 CheckBox6.Value = 0 . . .

---

en disant par exemple

Code:

---

for each CheckBox in ...........

---

merci

Bonjour,

Ceci devrait faire l'affaire :

Code:

---

1 2 3 4 5 6

For Each forme In UserForm1.Controls If forme.DisplayStyle = fmDisplayStyleCheckBox Then forme = 0 End If   Next forme

---

Cordialement,

Didier

Bonjour,
supposons 6 checkboxes check1, check2,....check6

Code:

---

1 2 3

for i = 1 to 6 controls("check" & i).value = 0 next

---

devrait aller

merci à tous
le problème se pose si les noms de CheckBox ne sont pas CheckBox1;CheckBox2;CheckBox3........
j'ai bien essayé les deux codes que vous m'avez proposé
le 1er ne donne rien.
le 2ème ça marche.
comment peut résoudre le problème si les noms ne commencent pas par CheckBox
merci.

Re...
tu as alors ta réponse dans l'aide en ligne, sur ta machine.... non ? :

Code:

---

1 2 3 4 5

For Each ctrl In Controls If TypeOf ctrl Is msforms.CheckBox Then ctrl.Value = 0 End If Next

---

mais il vaudra alors mieux que tu n'aies sur ta UserForm aucune autre CheckBox que celles que tu veux traiter ainsi !

merci ucfoutu
ça marche.