Commebt Cocher Plusieurs CheckBox à la fois
Amandine
-
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
ici j'ai mis l'exemple de 4 CheckBox a cocher ou a decocher sachant que j'ai une vingtaine
merci pour votre aide
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
A voir également:
- Commebt Cocher Plusieurs CheckBox à la fois
- Je suis une chose que les garçons utilisent 2 fois par jour et les filles une fois dans leur vie - Forum Loisirs / Divertissements
- Téléphone sonne 1 fois puis messagerie - Forum Mobile
- Imprimer plusieurs fois la même image sur une page (pdf) ✓ - Forum PDF
- Raccourci clavier case à cocher ✓ - Forum Excel
- Paiement 4 fois cdiscount impossible - Forum Consommation & Internet
4 réponses
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
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