Discussion :

[korni184]

Bonjour,

Est-il possible de combiner une optionbutton avec une checkbox ?

Dans le fichier ci-joint, il est possible de sélectionner une seule optionbutton, mais aussi la checkox.

Comment faire pour combiner les deux ? Afin que je puisse lui dire "Tous" + " Tableau" par exemple ?

J'imagine que je dois faire un if optionbutton = true and checkbox = true...

Pouvez-vous m'aider?

Merci d'avance

Bàv,

[jfontaine]

Bonjour,

Oui, comme cela

Code :

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

If OptionButton1.Value = True And CheckBox2.Value = True Then TestX

Quand on regarde ton code, on se demande pourquoi la checkbox n'est une optionButton

[korni184]

En fait, ce n'est pas un Optionbutton, car c'est un complément des OPTIONSBUTTON.

Donc si, on doit utiliser le tableau en plus d'un OPTIONBUTTON, on le coche, sinon non.

A présent si je veux construire mes différentes conditions, comment doit-je m'y prendre ?

Si, Tous et tableau cochés, alors TEST X
Si, Tous coché seul, alors TEST 1
si, Valeur J et tableau cochés, alors TEST X2
Si, Valeur J coché seul, alors TEST 2
Si, Valeur J+1 et tableau cochés, alors TEST X3
Si, Valeur J+1 coché seul, alors TEST 4
Si, Tableau coché seul, alors TEST 5

Sinon,

Msgbox : Aucun élément sélectionné.
Unload Useform1

End if

Je viens d'essayer cela avec des ELSEIF, mais sa ne fonctionne pas. Comment je peux m'y prendre?

Comme ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
If OptionButton1.Value = True And CheckBox2 = True Then
 TestX
 ElseIf OptionButton1.Value = True Then
 Test1
 ElseIf OptionButton2.Value = True And CheckBox2 = True Then
 TestX2
 ElseIf OptionButton2.Value = True Then
 Test2
 ElseIf OptionButton3.Value = True And CheckBox2 = True Then
 TestX3
 ElseIf OptionButton3.Value = True Then
 Test3
 ElseIf CheckBox2.Value = True Then
 Test4
 
 Else
 MsgBox "Aucun CheckBox sélectionné", vbInformation + vbOKOnly, "aucun"
 End If
 
 Unload UserForm1
 
 
End Sub

[gFZT82]

Bonjour,

Tu peux essayer comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
Dim StrMessage
    If CheckBox2.Value = True Then
        If OptionButton1.Value = True Then
            TestX
        ElseIf OptionButton2.Value = True Then
            TestX2
        ElseIf OptionButton3.Value = True Then
            TestX3
        Else
            Test5
        End If
    Else
        If OptionButton1.Value = True Then
            Test1
        ElseIf OptionButton2.Value = True Then
            Test2
        ElseIf OptionButton3.Value = True Then
            Test4
        Else
            MsgBox "Aucun contrôle sélectionné", vbInformation + vbOKOnly, "aucun"
        End If
    End If
 Unload UserForm1
End Sub

Cordialement.

[korni184]

Merci pour votre code.

Est-ce qu'il est possible d'ajouter une checkbox dans ce code ?

Qui peut bien sur se combiner avec l'autres checbox, ainsi qu'une optionbutton ?

La checkbox en question est la checkbox3.value.
Cependant si cette checkbox est sélectionné, je voudrai qu'il indique part un simple message "Fonction encore non developé" avec un bouton retour qui renvoie automatiquement vers l'userform1.

Pouvez-vous m'aider ?

Merci d'avance

Bàv,

[gFZT82]

Bonjour,

Il est bien sûr possible d'ajouter une CheckBox3. La combinaison avec les autres contrôles dépendra du résultat attendu.
J’ai simplement rajouté une partie de code pour indiquer l’absence de traitement si la case est cochée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click()
Dim StrMessage
    If CheckBox3.Value = True Then
        MsgBox "La fonction associée à la CheckBox3 n'est pas encore développée"
    End If
    If CheckBox2.Value = True Then
        If OptionButton1.Value = True Then
            TestX
        ElseIf OptionButton2.Value = True Then
            TestX2
        ElseIf OptionButton3.Value = True Then
            TestX3
        Else
            Test5
        End If
    Else
        If OptionButton1.Value = True Then
            Test1
        ElseIf OptionButton2.Value = True Then
            Test2
        ElseIf OptionButton3.Value = True Then
            Test4
        Else
            MsgBox "Aucun contrôle sélectionné", vbInformation + vbOKOnly, "aucun"
        End If
    End If
 Unload UserForm1
End Sub

Cordialement.