Créer une liste et méthode contains

Existe-il un objet qui me permettrai de faire une liste un peu comme

maListe=Array("Valeur1", "Valeur2", "Valeur3",...)

Et ensuite pouvoir voir si une chaine existe dans cette liste

Exemple :

machaine="blabla"
maListe.contains(maChaine) - me retourne FAUX
maListe.contains("Valeur1") - me retourne VRAI

Merci

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub RechercherTableau() Dim T, i As Long T = Array("Tom", "Bob", "Jim") On Error Resume Next i = Application.Match("Tom", T, 0) If Err.Number = 0 Then MsgBox "Emplacement de l'élément recherché: " & i Else MsgBox "Elément inexistant." End If End Sub

---

Cordialement,

Tirex28/