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