code d'une macro pour décocher toute les case à cocher

[mordious]

Bonjour le forum

je cherche le code d'une macro pour décocher toute les case à cochers de la "Feuil1"

a l'aide d'un bouton
ou
à l'ouverture du classeur

Ps: les cases à cochées sont "Control Formulaire"

merci pour votre aide

cordialement

 

[Guest]

Re : code d'une macro pour décocher toute les case à cocher

Bonjour,

Sheets("Feuil1").CheckBoxes.Value = False

Mais une recherche sur le forum t’aurait donné la réponse.

A+

 

[Staple1600]

Re : code d'une macro pour décocher toute les case à cocher

Bonjour à tous

Re Hasco , je plussoie concernant la sous-utilisation de la loupe


Néanmoins , puisque j'ai cela en stock

Sub DecocherTOUT()
'macro qui ratisse large : tout type de CheckBox
Dim sh As Shape
Application.ScreenUpdating = False
For Each sh In ActiveSheet.Shapes
    If sh.Type = msoOLEControlObject Then
      If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.OLEFormat.Object.Object = False
    End If
    If sh.Type = msoFormControl Then
      If sh.FormControlType = xlCheckBox Then sh.OLEFormat.Object = False
    End If
Next sh
Application.ScreenUpdating = True
End Sub

 

[mordious]

Re : code d'une macro pour décocher toute les case à cocher

impeccable
merci à vous