Discussion :

[dlight]

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

[Invité]

Bonjour

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

Voici deux exemples à adapter :

1 : Pour les cases impaires

Code :

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

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 :

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

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

[dlight]

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