VBA, décocher les cases à cocher [Résolu/Fermé]

Signaler
-
Messages postés
124
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
13 décembre 2015
-
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!!!!!!



2 réponses

Messages postés
124
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
13 décembre 2015
21
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
6
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Super, merci, ça fonctionne!!!!!
Messages postés
124
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
13 décembre 2015
21
Tant mieux!
Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
3 047
Bonjour,
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
Non, c'est pas deshonnaorant du tout! c'est juste que je préfère travailler avec le 2007, c'est tout :-)
En tout cas merci beaucoup pour ta réponse.