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
Configuration: Windows XP Internet Explorer 7.0
A voir également:
- Commebt Cocher Plusieurs CheckBox à la fois
- Imprimer plusieurs fois la même image sur une page ✓ - Forum Logiciels
- Paiement 4 fois cdiscount impossible - Forum Consommation & Internet
- Téléphone sonne 1 fois puis messagerie - Forum Mobile
- Case à cocher word ne fonctionne pas ✓ - Forum Word
- Raccourci clavier case à cocher - Forum Clavier
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