Discussion :

[La Pistoule]

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 :

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

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...

[Didier Gonard]

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 :

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

MyArray = Selection.SpecialCells(xlCellTypeVisible).Value

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

Code :

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

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

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

[La Pistoule]

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