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