Discussion :

[abouhossam]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci

[DidierLoche]

Bonjour,

Ceci devrait faire l'affaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

devrait aller

[abouhossam]

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.

[ucfoutu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[abouhossam]

merci ucfoutu
ça marche.