Sub DesactiveCheckBox()
Dim B As OLEObject
For Each B In ActiveSheet.OLEObjects
If TypeOf B.Object Is MSForms.CheckBox Then
B.Object.Value = False
End If
Next B
End Sub
En espérant que cela te dépanne.
Abel.
ps : dis merci à Didier_mdf. Sur ce coup là, je ne suis que le facteur.
Je ne vois pas pourquoi je ne remercierais pas le 'facteur'?
Dans le temps quand le facteur ramenait un mandat l'habitude voulait qu'on lui donne la pièce ou qu'on lui serve un coup à boire ... mais il est vrai que les temps on changé.
Donc un grand merci et évidemment un grand merci également à Didier_mdf
CA MARCHE !!! et j'en suis ravi
je vais mettre ce bout de code bien de côté afin de le resortir aux grandes occasions
Toute ma sympathie
P.S.: que cela ne t'empêche pas de boire un coup, je te l'offre