Toutes les CheckBox = false sauf CheckBox 1 à 12

Bonjour à tous.

J'ai le code suivant dans un userform:

Code:

---

1 2 3 4 5

For Each objCtrl In Me.Controls If TypeOf objCtrl Is MSForms.CheckBox Then objCtrl.Value = False End If Next objCtrl

---

Est-il possible d'ajouter quelque chose à ce code afin de ne pas supprimer les checkbox 1 à 12

Merci encore une fois à l'avance.

Dlight

Bonjour.

Quels sont les noms de tes checkboxes?

PGZ

Bonsoir,

Si les checkBox ont un nom de la forme "CheckBox1" à "CheckBoxNN":

Code:

---

1 2 3 4 5

For Each objCtrl In Me.Controls If TypeOf objCtrl Is MSForms.CheckBox Then objCtrl.Value = Val(Replace(objCtrl.Name, "CheckBox", "")) < =12 End If Next objCtrl

---

Les "CheckBox1" à "ChekBox12" seront cochés les autres non.

A+

Merci à vous deux de prendre de votre temps pour me répondre...

Mes checkbox ont bien la forme checkbox1, checkbox2... checkbox12.

Mon but est que si l'utilisateur utilise le bouton de commande, le code doit effacer toutes les cases cochées sauf les checkbox entre 1 et 12 inclusivement.

merci

Dlight

Une proposition plus générale en utilisant le Tag des checkbox indépendamment de leur noms.
Dans le propriété Tag de tes CheckBox de 1 à 12, tu mets par exemple Group1

Code:

---

1 2 3 4

Dim objCtrl As Control For Each objCtrl In Me.Controls If objCtrl.Tag = "Group1" Then objCtrl.Value = False Next objCtrl

---

Encore une fois merci Mercatog.

Le "Tag" est simplement génial.:hola:

Dlight