copier coller zone filtre automatique

[breeze]

Bonjour,
quelqu'un peut il m'aider?
Je cherche à filtrer une liste avec le filtrwe automatique pour ensuite sélectionner cette liste et la copier coller dans une autre feuille. J'utilise cette macro:
Range("D5").Select
Sheets("Feuil5").Select
Range("B3:B55").Select
Selection.ClearContents
Range("A18").Select
Sheets("Feuil1").Select
Range("D5:E5").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Range("a1").Value
Range("d5:d50"). Selection.Copy Sheets("Feuil5").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil1").Select
Range("D411").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("e6").Select
End Sub
Le problème c'est que la liste(que j'ai mis en Rouge) n'est jamais de la même longueur.
Donc la plage D6:d50 n'est pas toujours cela.

Comment faire pour adapter cette liste??

Merci

 

[orphelion]

Re : copier coller zone filtre automatique

Bonjour Breeze, le forum,

de mon experience tres reduite, je ne te conseille pas de passer par des filtres automatiques sur une macro. Je ne pense pas que cela fonctionne premierement et deuxiemement ce n'est pas efficace en terme de vitesse.
Il serait plus facile si tu pouvais joindre un bout de fichier avec tes questions, les donnees bruts et le resultat attendu.

Il y a toujours plusieurs maniere d'aborder un probleme et peut etre existe t-il des solutions plus rapide plus simple ou plus efficace qui emergeront grace a la contribution des exceliens present ici 🙂

a te relire

A+

 

[Pierrot93]

Re : copier coller zone filtre automatique

Bonjour,

essaye ceci, plage de cellule et noms feuilles à adapter :

Feuil1.Range("A1:B21").SpecialCells(xlCellTypeVisible).Copy Feuil2.Range("A1")

bonne journée
@+

 

[breeze]

Re : copier coller zone filtre automatique

Merci Beaucoup !!