Discussion :

[cuicui08]

Bonjour,

donc pour etre plus clair : oui j'aimerais bien que ma valeur (ici 2) soit comparer à tous les éléments (selectionnées ou pas) de ma listbox. En outre, le type de champs dans la base de donnée est "NuméroAuto" et je pense que le contenu de la listbox est donc aussi un NuméroAuto puisqu'il le récupère dans la base de donnée...

[jmfmarques]

Tu n'as toujours pas répondu à la 2ème question, que je formule fonc à nouveau différemment :
s'agit-il d'une compraison "exacte" ("2" avec "2") ou de vérifier si "2" est inlus dans la chaine "146239" par exemple ?
Car ce sont là 2 choses différentes !...

[cuicui08]

Cela importe peu puisque dans mon code final, ce sera de la forme

Code :

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

form_fiche.lstnumpre.value > 0

Je laisse juste "2" pour les tests dans mes formulaires.

[jmfmarques]

Je ne te suis vraiment pas :...

Alors :les 2 solutions :
1) si tu cherches si le caractère est présent "à l'interieur" :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
    caracachercher = "2"
    For i = 0 To List1.ListCount - 1
        If InStr(List1.List(i), caracachercher) > 0 Then
            MsgBox "oui dans l'article d'index " & i
        Else
            MsgBox "non dans l'article d'index " & i
        End If
    Next
End Sub

2) si tu cherches les correspondances exactes :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
    caracachercher = "2"
    For i = 0 To List1.ListCount - 1
        If List1.List(i) = caracachercher Then
            MsgBox "oui dans l'article d'index " & i
        Else
            MsgBox "non dans l'article d'index " & i
        End If
    Next
End Sub

N'oublies pas de faire un trim sur caracachercher s'il vient d'ailleurs et qu'il est en string
Même chose pour List1.List(i) trim(List1.List(i)) pour correspondances exactes...