[VBA-A] Comparer une valeur à nimporte quel caractère

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...

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 !...

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

Code:

---

form_fiche.lstnumpre.value > 0

---

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

Je ne te suis vraiment pas :...

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

Code:

---

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:

---

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...
:lol: