Discussion :

[dlight]

Bonjour à tous.

J'ai le code suivant dans un userform:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

Quels sont les noms de tes checkboxes?

PGZ

[hasco]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[dlight]

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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dlight]

Encore une fois merci Mercatog.

Le "Tag" est simplement génial.

Dlight