Bonjour à tous,
Je ne gère pas bien le VBA et je tombe donc sur un petit OS.
J'ai sur une feuille une vingtaine de case à cocher.
Je souhaiterais créer un bouton afin de les décocher toutes en un seul coup (et ceux peut importe le nombre de case activé a l'origine.)
J'ai plusou ou moins tenté d'écrire un code mais rien a faire!
Sub UnCheck()
For Each CB In Sheets("Formulaire").OLEObjects
If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = False
Next CB
End Sub
Quelqu'un aurai-t-il une idée?
Merci beaucoup,
Quentin
Je ne gère pas bien le VBA et je tombe donc sur un petit OS.
J'ai sur une feuille une vingtaine de case à cocher.
Je souhaiterais créer un bouton afin de les décocher toutes en un seul coup (et ceux peut importe le nombre de case activé a l'origine.)
J'ai plusou ou moins tenté d'écrire un code mais rien a faire!
Sub UnCheck()
For Each CB In Sheets("Formulaire").OLEObjects
If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = False
Next CB
End Sub
Quelqu'un aurai-t-il une idée?
Merci beaucoup,
Quentin