décocher des cases à cocher en nombre?

[mikepers]

Bonjour, un grand merci à tous les 'fournisseurs d'idées' du forum.
Ma question: est il possible ( et comment si oui) de décocher toutes les cases à cocher d'une feuille via un seul bouton ?
bien à vous.

 

[myDearFriend!]

Bonjour mikepers,

Si tes cases à cocher sont bien des contrôles ActiveX issus de la barre 'Boîte à Outils Contrôles', tu peux essayer comme ça :

Sub ChkBoxFalse()
Dim O As OLEObject
      For Each O In ActiveSheet.OLEObjects
            If TypeOf O.Object Is MSForms.CheckBox Then
                  O.Object.Value = False
            End If
      Next
End Sub

Cordialement,

 

[mikepers]

MERCI pour ta réponse.
Le code me renvoie une erreur ( située sur la fin du code dans le débogueur )et les cases à cocher restent cochées. Peut être parceque:
1/ j'ai oublié de dire que le fichier est réalisé au boulot sous Excel97
2/ J'ai mis des cases à cocher via la boite à outils de VisualBasic, car on peut alors leur donner un aspect plus 'gras'et donc plus visible à l'impression. Je réessaie bientôt, peut être que j'ai foiré quelque chose!!
Merci pour ton aide MDF