VBA recupérer données filtrées

[actaris51]

Bonjour,
J'ai une colonne dans une feuille "feuil1" ou il peut y avoir différentes valeurs : A, B, C, D....
Je voudrais créer une macro, qui me donne dans une feuil "feuil2" cette liste de donnée, à un endroit précis (par exemple en D4).
Je voudrais donc qu'en D4 il y ait A, en D5 il y ai B, en D6 : C etc...
sachant que je connais pas à l'avance le nombre de valeurs différentes
Pouvez vous m'aider ?
merci

 

[youky(BJ)]

Re : VBA recupérer données filtrées

Bonjour,
Sans doute ceci fera l'affaire
en feuil1 le filtre et en feuil 2 la copie de 2 colonne à partir de d4

Sub Macro1()
y = 3
For k = 1 To Feuil1.[A65536].End(3).Row
If Rows(k).Hidden = False Then
y = y + 1
Feuil2.Range("D" & y & ":E" & y).Value = _
Feuil1.Range("A" & k & ":B" & k).Value
End If
Next
End Sub