XL 2013 Copier-Coller lignes d'apres critere sur un classeur

[Coline Desfeux]

Bonjour,

Je me tourne vers vous expert du VBA car malgre mes nombreuses recherches sur les divers forum qui existe je n'arrive pas a trouver une solution.

Je vous explique, ci-joint mon fichier, avec pour chaque mois de l'annee 2019, les numeros de commandes pour chaque clients, avec la date a laquelle a ete recu la commande et la date a laquelle celle-ci a ete traitee.
Dans la colonne "Days Oustanding" il y a une formule qui calcul automatiquement en combien de jour la commande a ete traitee.

Mon objectif ici, est de pouvoir copier les lignes avec un delai ">2" dans la feuille "SUMMARY" et ca pour chaque mois de l'annee.

J'ai bien conscience que pour realiser cette demarche il faut creer une macro, malheureusement je suis plus que novice dans ce domaine. J'ai bien essaye le filter avance mais cela ne me donne pas vraiment ce que je souhaite.

J'espere qu'en m'adressant a vous, je pourrais enfin solutionner ce probleme qui me prend un certain temps depuis plusieurs jours.

PS : Desole pour l'ecrire, je vous contact depuis le Pays de Galles.

Dans l'attente de vous lire, merci d'avance.

 

[youky(BJ)]

Bien le bonjour,
Voici, j'ai modifié en ajoutant des lignes pour équilibrer Sumary
de façon à toujours avoir le même nbre de lignes.
PS il y a des données en fin d'année 2018
Bruno

Sub recap()
lig = -6
For onglet = 2 To 13
lig = lig + 12: i = 0
Range("D" & lig & ":L" & lig + 9) = ""
With Sheets(onglet)
For k = 7 To 44
If .Cells(k, 14) > 2 Then
Sheet1.Cells(lig + i, 4) = .Cells(k, 6)
Sheet1.Cells(lig + i, 6) = .Cells(k, 8)
Sheet1.Cells(lig + i, 8) = .Cells(k, 10)
Sheet1.Cells(lig + i, 10) = .Cells(k, 12)
Sheet1.Cells(lig + i, 12) = .Cells(k, 14):i=i+1
End If
Next
End With
Next
End Sub

 

[Coline Desfeux]

Bonjour Bruno,

Merci beaucoup pour votre aide et votre reactivite, cela me convient parfaitement.

Coline