scanner des array

gosselien · 23 Août 2016

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

VB:

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 · 23 Août 2016

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 · 23 Août 2016

Dranreb à dit:
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 · 23 Août 2016

Bonsoir à tous,

Code:

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 · 24 Août 2016

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

P.

scanner des array

gosselien

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

gosselien

XLDnaute Barbatruc

klin89

XLDnaute Accro

gosselien

XLDnaute Barbatruc

Discussions similaires