VBA, décocher les cases à cocher
Résolu/Fermé
Mat22
-
1 juin 2010 à 12:12
yelina64 Messages postés 123 Date d'inscription vendredi 28 mai 2010 Statut Membre Dernière intervention 13 décembre 2015 - 1 juin 2010 à 13:32
yelina64 Messages postés 123 Date d'inscription vendredi 28 mai 2010 Statut Membre Dernière intervention 13 décembre 2015 - 1 juin 2010 à 13:32
2 réponses
yelina64
Messages postés
123
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
13 décembre 2015
22
1 juin 2010 à 12:49
1 juin 2010 à 12:49
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
1 juin 2010 à 13:03
1 juin 2010 à 13:03
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
1 juin 2010 à 13:29
1 juin 2010 à 13:32