Problème décocher toutes les checkbox

[jfoisil]

Bonjour,

J'ai un classeur avec une feuille "BT" sur laquelle se trouve pas mal de cases à cocher que je voudrais 'RESET' avec une macro.

J'ai également des ComboBox et des TextBox à effacer.
Ma macro fonctionnait, mais ne fonctionne plus... voici le code

For Each CB In Sheets(Array("BT")).OLEObjects
If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = False
Next CB

Mais il me met une erreur 408 comme quoi il ne peut pas gérer l'objet...

Je suis perdu, merci pour votre aide

 

[Catrice]

Re : Problème décocher toutes les checkbox

Bonsoir,

Chez moi ça fontionne de cette façon :

Sub Test()
For Each CB In Sheets("BT").OLEObjects
If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = False
Next CB
End Sub