Filtre et array

Bonjour,
je viens de faire le tour des forums et je ne trouve pas ma réponse, alors je vous pose mon probléme :
je veux charger dans une variable tableau dynamique les données d'une zone filtrée et bien sur je ne veux charger que les données filtrées, mais TOUTES les données filtrées...
Aprés avoir filtré les données je lance la sub suivante :

Code:

---

1 2 3 4 5 6

Sub test() Dim MyArray() As Variant Range("a1").CurrentRegion.Select MyArray = Selection.SpecialCells(xlCellTypeVisible).Value Stop 'Pour visualiser le contenu de MyArray en espion End Sub

---

Mais voilà en retour dans ma variable je n'ai que le contenu des colonnes de la ligne 1 !
Merci de votre aide...

Bonjour et bienvenue,

en 1er, lis - Les règles :http://club.developpez.com/regles/

et : http://www.developpez.net/forums/d84...s-discussions/

vois aussi l'utilisation des balises de code (# en haut lors de l'édition) ;)

Au niveau de l'utilisation des tableaux, tu ne peux pas injecter directement un plage discontinue dans un Array comme tu veux le faire ici :

Code:

---

MyArray = Selection.SpecialCells(xlCellTypeVisible).Value

---

Il te faut pour cela faire une boucle par exemple pour alimenter ton tableau, du genre :

Code:

---

1 2 3 4 5

Set objPlageCible = Worksheets("BaseOne").AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible) 'on se base sur la colonne 1 (numID)   For Each cell In objPlageCible 'xxxxxxxxxxxx next cell

---

Citation:

---

Envoyé par aide VBA

AutoFilter.Range, propriété
Cette propriété renvoie un objet Range qui représente la plage sur laquelle s'applique le filtre automatique spécifié.

---

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Ok merci beaucoup, :ccool:
je comprends mieux pourquoi je n'y arrivais pas...
Et désolé pour la mise au format Code, je ferais attention le prochain coup!