XL 2016 Exporter vers une autre feuille sous conditions

kaki31

XLDnaute Occasionnel
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.
:)
 

Pièces jointes

  • Kakiexpo.xlsx
    10.1 KB · Affichages: 8

job75

XLDnaute Barbatruc
Bonsoir kaki31,

Voyez le fichier joint et cette macro dans le code de Feuil2 :
VB:
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+
 

Pièces jointes

  • Kakiexpo.xlsm
    17.9 KB · Affichages: 6

Discussions similaires