apres un filtre copier ds l1ere ligne vide

[christine]

Bonjour à tous

dans une liste excel, apres avoir filtré automatiquement une ref, j'aimerai à l'aide d'une macro copier une ligne (filtrée) et la coller ds la 1 ere ligne vide de ma liste
J'ai deja fait plusieurs essais qui fonctionnent bien si la liste n'est pas filtrée
Merci à ceux qui pourront m'aider en sachant que je fais toute mes macro "en manip" et non pas en "ecriture vba"

 

[Zon]

Salut,

C'est tout à fait possible mais j'ai 3 questions:

Comment déterminer la ligne à copier ?

Copier sur la 1 ère ligne vide, ça va générer des doublons supplémentaires ?

Un petit exemple peut être ?

A+++

 

[christine]

pour Zon

Salut, et merci pour ton aide

Voilà je voudrais faire une macro me permettant (sur le fichier joint) de
1 :selectionner S001 par le filtre autom
2 : copierA2:G2
3 : Coller sur A2323(1ere ligne vide de ma liste)
4: Effacer B23, C23, F23 et les cellules allant de H23 à Q23

Désolé je ne peux pas envoyer de piéces jointes. En réalité mon tableau contient des formules et des lignes et colonnes en plus grand nombre
A B C D E F G
code lot date fab qte fab ml 1 2
S001 01074 10/02/04 600 200 02/01/00
S001 02114 12/03/04 600 200 17/03/04 22/03/04
S001 02114 12/03/04 . 1000 22/03/04 29/03/04
S001 03254 16/06/04 800 200 21/06/04 28/06/04
S002 01114 11/03/04 2600 200 12/03/04 15/03/04
S002 01114 11/03/04 . 1000 18/03/04 22/03/04
S002 02204 13/05/04 400 30 17/05/04 24/05/04
S002 03284 09/07/04 1000 200 12/07/04 19/07/04
S003 02114 11/03/04 3000 1000 19/03/04 22/03/04
S003 02114 11/03/04 . 200 15/03/04 22/03/04
S004 01064 03/02/04 2600 200 04/02/04 09/02/04
S004 01064 03/02/04 . 1000 04/02/04 09/02/04
S004 02114 09/03/04 3000 200 10/03/04 15/03/04
S004 02114 09/03/04 . 1000 11/03/04 15/03/04
S004 03214 18/05/04 400 30 24/05/04 31/05/04
S004 04284 08/07/04 1000 200 12/07/04 19/07/04
S004 04284 08/07/04 . 1000 12/07/04 19/07/04
S005 01064 05/02/04 300 200 09/02/04 16/02/04
S005 02124 16/03/04 700 200 17/03/04 22/03/04
S005 03124 17/03/04 1000 1000 25/03/04 29/03/04
S005 04294 12/07/04 1000 200 13/07/04 19/07/04
J'espere que c'est clair !!!
à+

 

[F.launay]

Bonjour,
ci joint un modele de code qui devrait te dépanner
Sub Extrait() 'CREATION DE LA LISTE UNIQUE DES FAMILLES
Application.ScreenUpdating = False
Dim Vplage, Last As Long
Feuil2.Activate
Cells(1, 1).Activate
Last = ActiveCell.CurrentRegion.Rows.Count
Set Vplage = Range(ActiveCell, Range(ActiveCell, ActiveCell.End(xlDown)))
Range(ActiveCell, ActiveCell.Offset(0, 10)).Font.Bold = True

' COPIE EN LIGNE LAST+3 DE LA LISTE DES DONNÉES SANS DOUBLON
Vplage.AdvancedFilter xlFilterCopy, Vplage, Vplage.Offset(Last + 3, 0).Resize(1, 1), True
Range("extraction", Range("extraction").Offset(0, 10)) = Range("a1:k1").Value
Range("extraction", Range("extraction").Offset(0, 10)).Font.Bold = False
End sub

 

[christine]

Merci à F.Launay pour sa réponse mais hélas le résultat obtenu n'est pas le résultat désiré!
Merci encore pour le temps passé

 

[Zon]

Salut,

Christine regardes dans le fichier joint .

A+++

 

[CHRISTINE]

MERCI POUR TOUT