Discussion :

[portecd]

Bonjour,

j'ai une zone de liste à choix multiple. J'ai fait un code qui dit que quand une ligne est sélectionnée, si dans la colonne n°2 il y a un "R" alors il faut inscrire des infos dans un label:

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstResults_Click()
If Left(Me!lstResults.Column(1), 1) = "R" Then
lbl_AnaFacture.Visible = True
lbl_AnaFacture.Caption = "Voir la facture n°" & Me!lstResults.Column(0) & ""
Else
lbl_AnaFacture.Visible = False
End If
End Sub

Mon probléme est que quand je vais pour désélectionner ma ligne, les informations réapparaissent. Je n'arrive pas à trouver une solution, j'ai pourtant cherché sur les forums et FAQ.

Si quelqu'un(e) a une idée je l'en remercie d'avance.

[LedZeppII]

Bonsoir,

Je pense qu'il faut vérifier si la ligne active (qui a le focus) est sélectionnée ou pas.

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub lstResults_Click()
Dim idxLst As Integer
idxLst = Me.lstResults.ListIndex
If Me.lstResults.ColumnHeads = True Then idxLst = idxLst +1
If Left(Me!lstResults.Column(1), 1) = "R" Then
   If Me.lstResults.Selected(idxLst) Then
      lbl_AnaFacture.Visible = True
      lbl_AnaFacture.Caption = "Voir la facture n°" & Me!lstResults.Column(0) & ""
   Else
      lbl_AnaFacture.Visible = False
   End If
End If
End Sub

A+

[portecd]

Ca maeche ! merci beaucoup !