VBA, décocher les cases à cocher
Résolu
Mat22
-
yelina64 Messages postés 122 Date d'inscription Statut Membre Dernière intervention -
yelina64 Messages postés 122 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travaille sur excel 2003 (ben ouais, y ont pas mieux au boulot) et je voudrais un code VBA pour décocher toute les "cases à cocher" sur une feuille en cliquant juste sur un bouton (en sachant qu'elles ne sont pas forcemment toutes cochées).
Et je deviens fou, j'ai fait plein de forum et je trouve rien, s'il vous plait aidez moi!!!!!!
Je travaille sur excel 2003 (ben ouais, y ont pas mieux au boulot) et je voudrais un code VBA pour décocher toute les "cases à cocher" sur une feuille en cliquant juste sur un bouton (en sachant qu'elles ne sont pas forcemment toutes cochées).
Et je deviens fou, j'ai fait plein de forum et je trouve rien, s'il vous plait aidez moi!!!!!!
A voir également:
- Décocher une case
- Aller à la ligne dans une case excel - Guide
- Excel case choix multiple - Guide
- Supprimer case à cocher excel ✓ - Forum Excel
- Case à cocher excel - Forum MacOS
- Supprimer des cases à cocher (Excel 2003) - Forum Excel
2 réponses
Bonjour,
A la volée je dirais
Sub coche_tout()
For Each coche In ActiveSheet.Shapes
If coche.Name Like "Check*" Then coche.ControlFormat.Value = True
Next coche
End Sub
Sub decoche_tout()
For Each coche In ActiveSheet.Shapes
If coche.Name Like "Check*" Then coche.ControlFormat.Value = False
Next coche
End Sub
A la volée je dirais
Sub coche_tout()
For Each coche In ActiveSheet.Shapes
If coche.Name Like "Check*" Then coche.ControlFormat.Value = True
Next coche
End Sub
Sub decoche_tout()
For Each coche In ActiveSheet.Shapes
If coche.Name Like "Check*" Then coche.ControlFormat.Value = False
Next coche
End Sub
Mat22
Super, merci, ça fonctionne!!!!!
yelina64
Messages postés
122
Date d'inscription
Statut
Membre
Dernière intervention
22
Tant mieux!
Bonjour,
Je travaille sur excel 2003 (ben ouais, y ont pas mieux au boulot)
Pourquoi c'est déshonorant ? tu peux toujours démissionner...
Et dis moi donc si cette procédure serait différente avec 2007-2010
Je travaille sur excel 2003 (ben ouais, y ont pas mieux au boulot)
Pourquoi c'est déshonorant ? tu peux toujours démissionner...
Dim form As OLEObject
For Each form In ActiveSheet.OLEObjects
If TypeOf form.Object Is MSForms.CheckBox Then form.Object = False
Next form
End Sub
Et dis moi donc si cette procédure serait différente avec 2007-2010
