VBA, décocher les cases à cocher
Résolu
Mat22
-
yelina64 Messages postés 122 Date d'inscription Statut Membre Dernière intervention - 1 juin 2010 à 13:32
yelina64 Messages postés 122 Date d'inscription Statut Membre Dernière intervention - 1 juin 2010 à 13:32
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
- Si case cochée alors excel ✓ - Forum Excel
- Case à cocher outlook - Forum Outlook
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
