Case à cocher dans userform

Bonjour à tous.

J'ai un projet actuellement en réalisation. Dans ce projet, je vais avoir plusieurs Userform avec plusieurs cases à cocher. Les cases à cocher serviront à répondre par oui ou par non.

J'ai l'intention (si possible) de donner la possibilité à l'utilisateur de cocher toutes les cases "oui" ou Toutes les cases "non" en appuyant sur un bouton de commande.

Ma question # 1:

Dans la mesure où mes Checkbox "oui" sont impaires (Checkbox1,3...) et mes "non" sont paires, est-il possible de tous cocher mes checkbox impaires en un seul clique.

Ma question # 2:

est-il possible tous suprimer les "coches" des cases qui seraient cocher dans un userform.

Merci encore une fois pour votre temps et votre aide.

Dlight

Bonjour

Normalement c'est une question par discussion, mais vu que les deux sont liées cela ira :mouarf:

Voici deux exemples à adapter :

1 : Pour les cases impaires

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click()   Dim i As Integer   For i = 1 To 5 Step 2 Me.Controls("CheckBox" & i).Value = True Next i End Sub

---

Note le pas de 2 (Step 2) pour avoir les cases impaires dans la mesures où elles ont un nom de type CheckBox1.

2 : Pour décocher les cases

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton2_Click() Dim objCtrl As Control For Each objCtrl In Me.Controls If TypeOf objCtrl Is MSForms.CheckBox Then objCtrl.Value = False End If Next objCtrl End Sub

---

Philippe

Encore une fois merci à vous Philippe JOCHMANS d'avoir pris le temps de me répondre.:ccool: