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

Pierrot93

XLDnaute Barbatruc

• 19 Mai 2011

• #2

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

Bonjour,

regarde ceci :

Code:

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 :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

M

ministef_21

Guest

• 19 Mai 2011

• #3

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 🙂

 

Vote positif 0 Vote négatif

M

ministef_21

Guest

• 19 Mai 2011

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Mai 2011

• #5

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

Re,

remplace le "and" par "or" :

Code:

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

 

Vote positif 0 Vote négatif

M

ministef_21

Guest

• 19 Mai 2011

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Mai 2011

• #7

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

Re,

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

 

Vote positif 0 Vote négatif

M

ministef_21

Guest

• 19 Mai 2011

• #8

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 🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Mai 2011

• #9

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

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

M

ministef_21

Guest

• 19 Mai 2011

• #10

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

 

Vote positif 0 Vote négatif