Commebt Cocher Plusieurs CheckBox à la fois

Amandine -  
 Amandine -
Bonjour,
je programme en Vba sous Excel
y'a t il une possibilité dans un UserForm de cocher et décocher plusieur CheckBox à la fois avec un autre CheckBox "Selectionner tout" tous en laissant le choix de ne cocher que les CheckBox qu'on veut si on n'utilise pas le CheckBox "Selectionner tout" ou bien il faut les chocher tous un par un de la maniere suivante

Private Sub CheckBoxSelectionnerTout _Change()

      if CheckBoxSelectionnerTout =True then 
                CheckBox1 = true
                CheckBox2 = true
                CheckBox3 = true
                CheckBox4 = true
      else
                CheckBox1 = false
                CheckBox2 = false
                CheckBox3 = false
                CheckBox4 = false
     endif

End Sub


ici j'ai mis l'exemple de 4 CheckBox a cocher ou a decocher sachant que j'ai une vingtaine

merci pour votre aide

4 réponses

Amandine
 
Comment :)
0
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
If CheckTOUT.Value = True Then
CheckBox1.Value = True
CheckBox2.Value = True
CheckBox3.Value = True
CheckBox4.Value = True
Else
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
End If
0
Amandine
 
merci pour ta reponse
mais en fait je veux savoir si y 'a un moyen de les grouper tous au lieu de les ecrire un par un surtout que j'ai beaucoup
0
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
Au temps pour moi :

If CheckTOUT = True Then
For i = 1 To 4
Me.Controls("CheckBox" & i).Value = True
Next i
Else
For i = 1 To 4
Me.Controls("CheckBox" & i).Value = False
Next i
End If
0
Amandine
 
merci onesdf pour ton aide
bonne idée mais bon, moi j'ai changé les nom des checkbox

en tout cas merci beaucoup
0