Comment afficher un Label seulement après validation de 2 Checkbox??

[ministef_21]

Bonjour le forum,

J'ai besoin d'afficher un résultat après la validation de deux conditions uniquement.
Si une seule de ces conditions est remplie ou aucune on renvoi faux.
Si les deux conditions sont remplies ont renvoi vrai.
L'exemple parlera surement de lui même.

Merci d'avance de m'aiguiller sur mon problème! 🙂

Cordialement.

 

[Pierrot93]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

Bonjour,

regarde ceci :

Private Sub CheckBox1_Click()
Label1.Visible = CheckBox1 And CheckBox2
End Sub
Private Sub CheckBox2_Click()
Label1.Visible = CheckBox1 And CheckBox2
End Sub

peut être également placer ceci dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Private Sub Workbook_Open()
With Feuil1
    .Label1.Visible = .CheckBox1 And .CheckBox2
End With
End Sub

bon après midi
@+

 

[ministef_21]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

J'essayai en vain avec "&&" à la place de "And"! Cela fonctionne mais j'aimerai afficher Label2 si une seule de deux CheckBox est validée (peu importe laquelle, CheckBox1 ou Checkbox2). J'ai essayer avec des If mais ma syntaxe doit être mauvaise. Surement le même problème que "&&" à la place de "And" vous allez me dire... ^^

Merci en tout cas pour la réponse précédente. J'aime ce Forum 🙂

 

[ministef_21]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

Pour répondre à mon problème d'affichage de la valeur fausse j'ai essayé ceci mais la valeur fausse (Label2) ne s'affiche jamais...

Ou ai-je fait l'erreur je ne vois pas pas du tout ! :s

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Label1.Visible = CheckBox1 And CheckBox2
Else
Label2.Visible = CheckBox1
End If
End Sub


Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Label1.Visible = CheckBox1 And CheckBox2
Else
Label2.Visible = CheckBox2
End If
End Sub

Merci

Stef

 

[Pierrot93]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

Re,

remplace le "and" par "or" :

Private Sub CheckBox1_Click()
Label1.Visible = CheckBox1 And CheckBox2
Label2.Visible = CheckBox1 Or CheckBox2
End Sub
Private Sub CheckBox2_Click()
Label1.Visible = CheckBox1 And CheckBox2
Label2.Visible = CheckBox1 Or CheckBox2
End Sub

 

[ministef_21]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

Encore et toujours plus exigent, je suis désolé de te paraître ainsi Pierrot93!
Mais une fois que mes deux CheckBox sont sélectionnées il me faut "dés-afficher" le Label2 que j'ai fait apparaître avec la commande "Or" car sinon mes réponses sont à la fois justes et à la fois fausses! :s
C'est pour cela d'ailleurs que j'étais partie sur une condition If...Else

Un conseil pour y arriver??

Stef

 

[Pierrot93]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

Re,

et si les 2 checkbox ne sont pas cochées ????

 

[ministef_21]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

Re,

Je ne renvoi rien, il faut attendre qu'une action soit effectuée 🙂

 

[Pierrot93]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

Re,

peut être ceci alors, les 2 labels seront invisibles...

Private Sub CheckBox1_Click()
Label1.Visible = CheckBox1 And CheckBox2
Label2.Visible = IIf(CheckBox1 And CheckBox2, 0, CheckBox1 Or CheckBox2)
End Sub
Private Sub CheckBox2_Click()
Label1.Visible = CheckBox1 And CheckBox2
Label2.Visible = IIf(CheckBox1 And CheckBox2, 0, CheckBox1 Or CheckBox2)
End Sub

 

[ministef_21]

Re : Comment afficher un Label seulement après validation de 2 Checkbox??

C'est parfait ! 🙂
Un grand merci

A une prochaine fois...

Bonne soirée