Comment tester la présence d'une valeur dans une liste?

Bonjour a tous,

Je cherche depuis un moment comment tester si une valeur entrée via un UserForm existe ou pas dans une liste.

Mais je seche. J'ai pensé a faire une boucle et comparer la valeur a tous les elements de la liste un a un, sachant que la liste est triée.

Y a-t-il par hasard une fonction deja programée qui m'aurait echappé?

Bonjour,

Non, rien de préprogrammé, soit une boucle comme tu l'avais bien pensé, soit plus rapide via la fonction Find

Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test54() Dim c As Range   Set c = Sheets(1).Range("A:A").Find(what:=UserForm1.textbox1.Value, lookat:=xlWhole)   If Not c Is Nothing Then MsgBox "la valeur est trouvée cellule " & c.Address Else MsgBox "la valeur n'existe pas" End If   End Sub

---

Merci! :king:
Ca marche nickel.

Je connaissais la fonction find pour faire des correspondances.
Mais je l'avais jamais utilisée pour tester la présence d'une valeur dans une liste!

Thanks again!