Ne pas copier le résultat d'1 filtre si ce résultat est vide

Bonjour,

Besoin d'aide

Avec mon code VBA, je copie le résultat d'un filtre et je le colle sur un autre fichier.

Jusque là tout va bien. Le problème se pose lorsque ce résultat est vide. J'ai un message d'erreur qui bloque l'exécution de ma macro. ce message d'erreur me dit : "ERREUR D'EXECUTION 1004 - pas de cellules correspondantes."

comment pourrais je faire pour éviter ce message ?

ClasseurGCR.Activate
Worksheets(1).ShowAllData 'Enlever le filtre précédent
Range("A1").AutoFilter Field:=6, Criteria1:="2446" 'faire un nvo filtre 
Set PlageNORD2 = Range("A1").CurrentRegion 'selectionner ce nvo filtre
PlageNORD2.Offset(1, 0).Resize(PlageNORD2.Rows.Count - 1, PlageNORD2.Columns.Count).SpecialCells(xlCellTypeVisible).Copy ' copier le résultat sans l'entete
ClasseurNORD.Worksheets(1).Range("A" & LastLineNORD).PasteSpecial (xlPasteValues) 'le coller

Merci

Bonjour

Sans ton fichier modifies ta macro : Voir l'aide de SOUS.TOTAL()

ClasseurGCR.Activate
Worksheets(1).ShowAllData 'Enlever le filtre précédent
Range("A1").AutoFilter Field:=6, Criteria1:="2446" 'faire un nvo filtre
If Application.Subtotal(103, Columns("A")) > 1 Then   ' Compte le nombre de ligne filtrée en colonne A
  Set PlageNORD2 = Range("A1").CurrentRegion 'selectionner ce nvo filtre
  PlageNORD2.Offset(1, 0).Resize(PlageNORD2.Rows.Count - 1, PlageNORD2.Columns.Count).SpecialCells(xlCellTypeVisible).Copy ' copier le résultat sans l'entete
  ClasseurNORD.Worksheets(1).Range("A" & LastLineNORD).PasteSpecial (xlPasteValues) 'le coller
End If

Un grand merci Banzai64, ça fonctionne

Rechercher des sujets similaires à "pas copier resultat filtre vide"