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
Configuration: Windows XP
Internet Explorer 7.0

4 réponses

  1. 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
  2. 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
    1. 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
  3. 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