Recherche valeurs dans un range

[Will-e-coyote]

Bonjour le forum

Mon probleme est le suivant j'ai une plage nommée (CD_Budget) qui est une zone a deux colonnes. La premiere contient un code et la deuxieme le libellé correspondant...

Je veux pouvoir les afficher dans une ListBox d'un UserForm pour faire un filtrage. Pour cela je veux pouvoir passer par le code suivant qui est censé me créer un tableau a 2 dimensions.

Dim MyList()
i = 1
For Each Rw In Range("CD_Budgets").Rows
    MyList(i, 1) = Rw.Cells(1, 1).Value
    MyList(i, 2) = Rw.Cells(1, 2).Value
    i = i + 1
Next

Le probleme est que des que j'arrive à la 4eme ligne VBE me renvoie une erreur out of Range....

Quelqu'un peut me dire ce qui cloche ? 🙄

 

[tototiti2008]

Re : Recherche valeurs dans un range

Bonjour Will,

à tester :

Dim MyList()
i = 1
ReDim MyList(1 to Range("CD_Budgets").Rows.Count, 1 To 2)
For Each Rw In Range("CD_Budgets").Rows
    MyList(i, 1) = Rw.Cells(1, 1).Value
    MyList(i, 2) = Rw.Cells(1, 2).Value
    i = i + 1
Next

 

[kjin]

Re : Recherche valeurs dans un range

Bonjour,

Dim MyList()
MyList = Range("CD_Budgets").Value

A+
kjin

 

[Will-e-coyote]

Re : Recherche valeurs dans un range

Oh My Godness !

Il suffisait de redimenssionner le tableau.... je suis trop c..... 😱

Merki TotoTiti 😀

 

[Pierrot93]

Re : Recherche valeurs dans un range

Bonjour will

pour alimenter un tableau, tu peux procéder ainsi :

Dim MyList() As Variant
MyList = Range("CD_Budgets").Value

bon après midi
@+

Edition : un peu en retard moi, bonjour toto, kjin

 

[tototiti2008]

Re : Recherche valeurs dans un range

Re,
Bonjour kjin, Bonjour Pierrot,

oui, ça c'était la "correction" pour comprendre l'erreur, mais pour un résultat analogue, le code de kjin et Pierrot fonctionne en effet trés bien.

 

[Will-e-coyote]

Re : Recherche valeurs dans un range

Glops !

Pourquoi faire simple quand on peut faire compliqué !!!!!😎

Merki Pierrot.....