Problème décocher toutes les checkbox

jfoisil

XLDnaute Nouveau
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
 

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal