Discussion :

[cyraile]

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

[tirex28]

Bonjour,

Code :

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

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/