Discussion :

[moilou2]

Bonjour, j'ai deux listBox.

Une nomée "listeLigne" et l'autre "listeMachine".

Je rempli en première la listBox "listeLigne".

ensuite sur évenement clic de ma seconte listBox, je voudrais afficher un label si la valeur de ma première listtBox est égale à "Général Usine".

Voila le code que j'ai placé, mais apparament cela ne fonctionne pas mais je ne vois pas pourquoi. Je pense que cela provient de la manière selon laquelle je test la présence de "Général Usine".

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub listeMachine_Click()
 
If Me.listeLigne.Value = "Général Usine" Then
 
Me.lblAvertissement.Visible = True
Else
Me.lblAvertissement.Visible = False
End If
 
End Sub

[6ril25]

Salut,

tu as testé sur l'évenement "enter" plutôt que "click"??

[moilou2]

Non sa ne fonctionne pas et de plus ce n'est pas se que je souhaite faire.

Je n'entre rien dans une listBox, c'est une liste dérouante.

Moi c'est quand je clic dans ma listBox, ou quand je m'apprete à dérouler la listBox que le label doit apparaitre.

[6ril25]

oki, et listeLigne contient quelle valeur??
Teste:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub listeMachine_Click()
 msgbox Me.listeLigne.Value
If Me.listeLigne.Value = "Général Usine" Then
 
Me.lblAvertissement.Visible = True
Else
Me.lblAvertissement.Visible = False
End If
 
End Sub

[moilou2]

Re, je crois en fait que le soucis vien du fait que le code ne s'execute pas?!

De quoi cela peut venir?

[moilou2]

Re j'ai réglé le problème!

Donc j'ai placé le code sur l'évenement Got_Focus

Et j'ai indiqué dans le code qu'il s'agissait de la colonne 1 et non la 0 par défaut de ma listBox.

Donc sa donne sa:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub listeMachine_GotFocus()
 
If Me.listeLigne.Column(1) = "Général Usine" Then
 
Me.lblAvertissement.Visible = True
Else
Me.lblAvertissement.Visible = False
End If
 
Me.Refresh
 
End Sub

Et sa fonctionne. Merci c'est toi qui m'a mis sur la voie

[6ril25]

Avec le msgbox j'imagine