Discussion :

[portecd]

Bonjour en cherchant sur les tutoriaux j'ai trouvé ceci ci-dessous fait par Tofalu et cela marche du tonnerre de dieu. Mais comment fait on pour rechercher la valeur dans la deuxiéme colonne de la liste ??

Merci d'avance pour votre aide.


Cette fonction renvoie true si la valeur passée en paramètre est trouvée dans la zone de liste qui figure dans le premier paramètre.

Code :

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

1
2
3
4
5
6
Private Function verifliste(Liste As ListBox, Valeur As String) As Boolean
Dim i As Integer
For i = 0 To Liste.ListCount - 1
  If Liste.ItemData(i) = Valeur Then verifliste = True
Next i
End Function

Utilisation :


Vérfier que toto ne fait pas partie de la zone de liste ZL3 :

Code :

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

1
2
3
Private Sub Commande0_Click()
MsgBox verifliste(Me.ZL3, "toto")
End Sub

[Tofalu]

Bonjour,

Les colonnes étant numérotée de 0 à n-1, on peut modifier la fonction :

Code :

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

1
2
3
4
5
6
Private Function verifliste(Liste As ListBox, Valeur As String, intColumn As Byte) As Boolean
Dim i As Integer
For i = 0 To Liste.ListCount - 1
  If Liste.Column(intColumn, i) = Valeur Then verifliste = True
Next i
End Function

Et utiliser :

Code :

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

1
2
3
Private Sub Commande4_Click()
MsgBox verifliste(Me.Liste2, 2, 1)
End Sub

[portecd]

GENIAL !
Merci beaucoup ça marche super