filtres et copie.... encore

[moialbert]

bonjour,
j ai de nouveau un petit probleme avec un filtre
je m explique
je filtre des donnees selon un criteres (ici cellule non vide) et ensuite je copie les lignes filtrées dans une autre feuille.
Je voudrais en fait non pas copier la ligne entiere mais seulement certaines colonnes de la ligne et les coller cote a cote dans la nouvelle feuille (les colonnes A,B,C, N et R, qui ont aussi des noms)
voila mon code:


Sub hdom()

Sheets("datos extraidos").Select
Range("A5").Select

Selection.AutoFilter
Selection.AutoFilter Field:=14, Criteria1:="<>" & ""
Application.Goto reference:="datos_extraidos"
Selection.Copy
Sheets("tratamiento").Select
numcolonne = 1
numligne = 102
Cells(numligne, numcolonne).Select
While Not IsEmpty(ActiveCell.Value)
numligne = (numligne + 1)
Cells(numligne, numcolonne).Select
Wend
ActiveSheet.Paste
Sheets("datos extraidos").Select
Range("A5").Select

End Sub


que dois je rajouter pour copier seulement ces colonnes ?
merci de votre aide
albert

 

[ChTi160]

Re : filtres et copie.... encore

Salut à toi albert

ne pourrais tu mettre un fichier exemple de ce que tu as et de ce que tu veux
le tout sans données confidentielles, quelques lignes suffisent
car il y a surement plusieurs solutions ,mais sans fichier pas très encourageant
dans l'attente
Bonne Journée

 

[moialbert]

Re : filtres et copie.... encore

fichier ici






merci de votre aide

 

[tototiti2008]

Re : filtres et copie.... encore

Bonjour à tous,

peut-être en remplaçant

Application.Goto reference:="datos_extraidos"
Selection.Copy

par

Application.Intersect(Range("datos_extraidos"), Range("A1:C65536,N1:N65536,R1:R65536")).Copy

 

[ChTi160]

Re : filtres et copie.... encore

Re Salut à toi albert
Bonjour le fil,Le Forum
en pièce jointe une autre possibilité

Le Fichier : Regarde la pièce jointe copiecolonneVx.zip

Bonne fin de Journée