Combinaison d'une Optionbutton avec une Chec

Version imprimable

17/02/2012, 16h58
korni184

1 pièce(s) jointe(s)

Combinaison d'une Optionbutton avec une Chec

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,
17/02/2012, 21h39
jfontaine

Bonjour,

Oui, comme cela

Code:

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

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:

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

Bonjour,

Tu peux essayer comme cela

Code:

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.

27/02/2012, 17h08
korni184

Est-il possible d'ajouter une checkbox ?

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,

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:

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.

28/02/2012, 17h03
korni184

Merci pour la réponse.

Et si je dois la rendre utilisable la checkbox3, comment dois-je m'y prendre ? Vu qu'il y a un "si checkbox2 sélectionné et si Optionbutton1,2.3 sélectionné alors..." sinon c'est une simple application des button 1,2 ou 3.

Comment je peux initier cet autre bouton pour un macro appelé "Rapport_Travail" ?

En sachant qu'on peut aussi cocher cette case là en plus des autres.

Pouvez-vous m'aider ?

Merci d'avance

Bàv,
28/02/2012, 18h04
gFZT82

Bonjour,

Mouais :koi:
Pour bien commencer, je te conseille de réfléchir au résultat à obtenir avant de te lancer dans le code.
Quand tu auras bien défini la finalité de ton projet, avec toutes ses composantes, tu pourras faire une analyse correcte. Dans le cas contraire, tu vas chercher à adapter ce qui a déjà été fait et tu bâtiras un monument avec des bouts de ficelles.

Personnellement, j’ai beaucoup de mal à comprendre ce que tu veux faire.
Tu parles d’une action liée à la checkbox3, puis d’un bouton "Rapport_Travail",
Désolé, je suis largué :zen:.

Cordialement.
15/03/2012, 15h29
korni184

Bonjour,

Après analyse, je reviens sur votre réponse.

En faisant très simple, j'ai actuellement sur mon USERFORM 3 OPTION BUTTON et 2 CHECKBOX

On peut sélectionner à la fois, qu'un seul USERFORM, en sachant que chacun déclanche une Macro différente.

Les Checkbox sont des suppléments, l'une donne un tableau d'analyse qui se réalise à l'aide d'un des traitements de la macro qui correspond aux OPTION BUTTON. Donc on es pas obligé de le sélectionner.

Au sujet de la deuxième Checkbox, c'est un rapport. Lui aussi on es pas obligé de le sélectionner.

Voilà pourquoi, sa parait un peu complexe.

Donc si je veux ajouter une macro en sélectionnant la case "Rapport". Comment je peux l'activer ensuite ?