paramétrer des checkbox

[jacques]

Bonjour le Forum

Je cherche à lister tous les checkbox de ma feuille afin de les 'désactiver' (Value = False) en une seule fois grace à une boucle en VBA

exemple :
For I = 1 to 10
checkboxI.Value = False
Next

(évidemment la ligne checkboxI.Value ... est incorecte)

merci et bonne soirée

 

[Abel]

Bonsoir Jacques,

Place ce code dans la feuille concernée :

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.

 

[Jacques]

Bonsoir Abel,

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