Discussion :

[jeo13]

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é?

[fring]

Bonjour,

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

Exemple

Code :

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

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

[jeo13]

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