Discussion :

[portecd]

Bonjour,

je n'ai aucune idée pour arriver à faire ce que je voudrais ! Si quelqu'un peut me mettre sur une piste, ce serait sympa:

J'ai une liste déroulante dont les valeurs dans la colonne 7 peuvent être différentes. Le code ci-dessous me permet de mettre dans un label le nom, dans la colonne 7, de la ligne sélectionnée.
J'aimerais que tant que les valeurs sélectionnées de la colonne 7 sont identiques alors le label affiche toujours cette valeur, mais dès qu'une des valeurs est différente des autres alors le label est vide.

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstrelance_Click()
Dim benef As String
 
lbl_benef.Caption = Me!lstrelance.Column(6)
benef = Me!lstrelance.Column(6)
lstContact.RowSource = sql_Contact() & " where Contact!Beneficiaire like '" & benef & "';"
lstContact.Requery
End Sub

J'esoère que c'est possible!

Merci par avance

[marot_r]

Tu pourrais faire une simple boucle qui parcourt les éléments de ta liste (Controle ListBox) à chaque fois que tu as événement OnClick.

Code :

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

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 test()
    Dim i As Integer
    Dim valRef As String
    Dim result As String
 
    For i = 0 To Me.Liste0.ListCount - 1
      If Me.Liste0.Selected(i) Then
 
        If valRef = "" Then
            valRef = Me.Liste0.Column(i, 7)
        End If
 
        If valRef <> Me.Liste0.Column(i, 7) Then
                result = ""
                Exit For
            Else
                result = valRef
        End If
 
      End If
    Next i
 
    Me.MonControle = result
End Sub

[portecd]

bonne idée !

Merci beaucoup !