XL 2016 Exporter vers une autre feuille sous conditions

[kaki31]

Bonjour,
Je cherche un moyen d'exporter de la feuille 1 vers la feuille 2 sous conditions.
au fait n'exporter que les lignes dont les cellules en D E F G sont vides
pour arriver au résultat dans le fichier joint;
Merci par avance.
🙂

 

[job75]

Bonsoir kaki31,

Voyez le fichier joint et cette macro dans le code de Feuil2 :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Sheets("Feuil1").Columns("A:G").Copy [B1] 'càlonne A auxiliaire
With Range("A1", UsedRange)
    .Columns(1) = "=1/((ROW()=1)+(COUNTA(RC[4]:RC[7])<4))"
    .Columns(1) = .Columns(1).Value 'supprime les formules
    .Sort .Columns(1), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
    On Error Resume Next 'si aucune SpecialCell
    .Columns(1).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
End With
Columns(1).Delete 'supprime la colonne auxiliaire
UsedRange.BorderAround Weight:=xlMedium 'pourtour
End Sub

Grâce au tri elle est très rapide.

A+

 

[Phil69970]

Bonjour @kaki31
Edit Bonjour @job75

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[job75]

Bonsoir Phil69970,

Pour tester j'ai copié la plage A2:G7 (sans les bordures) sur 120 000 lignes.

Chez moi ma macro s'exécute en 1,1 seconde, la tienne en 3,7 secondes.

Bonne nuit.

 

[kaki31]

Merci et bonne nuit.
🙂