XL 2013 Recopier lignes d'un onglet vers un autre onglet en fonction d'un critère.

[BRUNO28]

Bonjour à toutes et à tous,
je ne trouve pas mon bonheur aussi je me tourne vers vous pour m'aider.
Dans le fichier joint je souhaite recopier les lignes correspondantes selon critère en colonne A.
D'avance merci.

 

[sousou]

Bonjour
Tu peux essayer ceci:
Public Const nbcol = 11
Sub export()
With Sheets("recap")
Set zone = .Range(.Cells(3, 1), .Cells(.UsedRange.Columns(1).Rows.Count, 1))
For Each i In zone
If i <> "" Then
Call copie(i.Value, i.Parent.Range(.Cells(i.Row, 1), .Cells(i.Row, nbcol)))
End If
Next
End With
End Sub

Sub copie(nom, ligne)
MsgBox ligne.Address
With Sheets(nom)
l = .Columns(1).Find("").Row
ligne.Copy .Cells(l, 1)
End With
End Sub

 

[BOISGONTIER]

Bonsoir,

cf PJ

JB

 

[BRUNO28]

Merci à vous deux pour vos réponses qui me sont utiles.
Bravo à vous.
J'ai une autre demande, comment trier ou filtrer les infos dans les divers onglets Vendeurs les sommes des lignes par mois.
Les factures de Mars seront les seules additionnées sur le mois de mars et ainsi de suite pour les autres mois.
Merci

 

[lpl]

Bonsoir,

cf PJ

JB

Bonjour BOISGONTIER,

Votre code est super mais j'arrive pas à l'appliquer à mon fichier. J'y ai passé la soirée. Pourriez-vous m'aider ? merci bcp d'avance