VBA, décocher les cases à cocher Résolu

Question

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!!!!!!



Configuration: Windows XP / Internet Explorer 6.0

yelina64 · Accepted Answer

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

michel_m · Answer

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

VBA, décocher les cases à cocher

2 réponses

Votre réponse

Discussions similaires