Boucle checkbox

Bonjour,

Je souhaiterais savoir, s'il est possible de créer une boucle sur des cases à cocher qui se trouvent dans la feuille et dont le code est identique d'une case à l'autre.

J'avoue ne jamais avoir créé de boucle et ne pas trop comprendre le fonctionnement de celles que j'ai consulté sur le net.

L'idéal, serait de pouvoir placer la boucle dans un module

Ci-joint un exemple de ce que je cherche à faire

Merci pour votre aide,

Jeremy

Bonjour

Sub Boucle_Chk()
Dim obj As OLEObject
 For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is msforms.CheckBox And obj.Object.Value = False Then
obj.Object.ForeColor = RGB(192, 192, 192)
Else
obj.Object.ForeColor = RGB(0, 0, 0)
End If
 Next obj
End Sub

Cordialement

Merci Amadéus.

J'ai encore une petite question, est-il possible de regrouper des cases à cocher et ne lancer la boucle que sur ce groupe?

Bonsoir JeremyW, Amadéus

petite nuance

par module de class

configurer pour les checkbox de 1 a 6

la collection est mise en place a l'ouverture du fichier

donc si le fichier passe en mode creation, il faut refermer et réouvrir pour activer la collection

Bonjour

Et en utilisant uniquement le champ contenant les Checkboxes

Le bouton Test

j'ai changé la couleur pour une meilleure lisibilité

Cordialement

Merci beaucoup pour votre aide toujours très précieuse.

Vous souhaitant une bonne soirée,

Jeremy