Bonjour,
J'ai plusieurs onglet de données brutes de plusieurs clients. J'utilise la macro pour supprimer le data qui n'est pas celui du client à qui je veux envoyer les rapports.
Le code fonctionne sur la plupart des onglets sauf celui-ci.
Sheets("feuil1").Select
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
Worksheets("feuil1").Range("$D$1:$D" & DerniereLigne).AutoFilter _
Field:=1, _
Criteria1:="<>" & ClientName
Worksheets("feuil1").AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Worksheets("feuil1").ShowAllData
La macro bogue sur le EntireRow.Delete
Il n'y a pas de table dans ma feuille 1. Ca me semble une fonctione simple, je comprend pas ce qu'il va pas....Êtes-vous inspiré ?
Merci
Véro
J'ai plusieurs onglet de données brutes de plusieurs clients. J'utilise la macro pour supprimer le data qui n'est pas celui du client à qui je veux envoyer les rapports.
Le code fonctionne sur la plupart des onglets sauf celui-ci.
Sheets("feuil1").Select
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
Worksheets("feuil1").Range("$D$1:$D" & DerniereLigne).AutoFilter _
Field:=1, _
Criteria1:="<>" & ClientName
Worksheets("feuil1").AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Worksheets("feuil1").ShowAllData
La macro bogue sur le EntireRow.Delete
Il n'y a pas de table dans ma feuille 1. Ca me semble une fonctione simple, je comprend pas ce qu'il va pas....Êtes-vous inspiré ?
Merci
Véro