scanner des array

[gosselien]

Bonjour,

j'ai un petit soucis de syntaxe surement lors d'un scan dans différentes array
peut on me dire où est l'erreur ?
Merci

Sub ScanArray()
Dim arr
Dim Arr1, Arr2
Dim toFind
Dim a, i As Integer
Arr1 = Array("abc", "def", "ghi")
Arr2 = Array("jkl", "mno", "pqr")
toFind = "mno"
For a = 1 To 2
  arr = "Arr" & a
  Debug.Print arr
  For i = LBound(arr) To UBound(arr)
    If arr(i) = toFind Then MsgBox ("Trouvé dans ") & arr
  Next
Next a
End Sub

 

[Dranreb]

Bonsoir
L'erreur c'est que vous cherchez des dimensions au contenu d'un Variant nommé arr alors que vous ne lui avez pas affecté un tableau mais un String "Arr1" ou "Arr2"

Essayez Arr = Array(Array("abc", "def", "ghi"), Array("jkl", "mno", "pqr"))
et vous pourrez accéder à LBound(Arr, 2)), UBound(Arr, 2) et Arr(a, i)
Avec For a = 0 To 1 et For i = 0 To 2

 

[gosselien]

Bonsoir
L'erreur c'est que vous cherchez des dimensions au contenu d'un Variant nommé arr alors que vous ne lui avez pas affecté un tableau mais un String "Arr1" ou "Arr2"

Essayez Arr = Array(Array("abc", "def", "ghi"), Array("jkl", "mno", "pqr"))
et vous pourrez accéder à LBound(Arr, 2)), UBound(Arr, 2) et Arr(a, i)
Avec For a = 0 To 1 et For i = 0 To 2

Merci mais...

je n'y arrive pas 🙁
Je peux avoir mon code modifié ?

Merci

 

[klin89]

Bonsoir à tous,🙂

Sub test()
    Dim arr, x, y
    arr = [{"abc", "def", "ghi";"jkl", "mno", "pqr"}]
    With Application
        For x = 1 To UBound(arr, 1)
            y = .Match("mno", .Index(arr, x, 0), 0)
            If Not IsError(y) Then Exit For
        Next
    End With
    MsgBox "mno trouvé dans arr" & x
End Sub

klin89

 

[gosselien]

Bonjour à tous et merci pour la solution à Klin et à Dranreb pour l'idée 🙂

P.