Effacer des lignes et décaler vers le haut

[PatLac]

Bonjour à tous !
J´ai besoin de votre aide.

J´ai en pièces jointes 2 fichiers, l´un est juste un simple "bouton" (mappe1.xlsm) , le second un fichier ".XLSX".
Certaines lignes du fichier XLSX sont inscrite avec 3 "0" ...

Je voudrais qu´avec une action sur le "bouton" du fichier "mappe1", le fichier XLSX s´ouvre, que les lignes avec les 3 "0" s´effacent, que les autres se décalent vers le haut, que le fichier XLSX se referme .

Pourriez-vous développez/connaissez-vous une macro dans ce sens?
D´avance merci.
Cordialement

 

[Jacky67]

Bonjour,
Dans l'exemple les deux classeurs se trouvent dans le même répertoire.
Sinon il faudra adapter le chemin

Sub SupprimeLignes()
Dim i&
Workbooks.Open ThisWorkbook.Path & "\ErfassungHL.xlsx"
With Sheets("ErfassungHL")
  For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1
    If .Cells(i, 3) & .Cells(i, 4) & .Cells(i, 5) = "000" Then .Rows(i).Delete
  Next
ActiveWorkbook.Close True
End With
End Sub

 

[PatLac]

Bonjour Jacky67 et merci pour cette rapide réponse !
Ca marche nickel, mais avec un fichier .CSV, ca ne fonctionne plus, meme en changeant le xlsx en CSV dans le code ...
Une idée?

Merci

 

[Jacky67]

Bonjour Jacky67 et merci pour cette rapide réponse !
Ca marche nickel, mais avec un fichier .CSV, ca ne fonctionne plus, meme en changeant le xlsx en CSV dans le code ...
Une idée?

Merci

Re..
En .CSV c'est un peu plus compliqué, des exemples ici
https://www.excel-downloads.com/threads/supprimer-une-ligne-dans-un-fichier-csv.129509/

 

[PatLac]

Merci jacky67 !
J´ai lu les différents post, mais rien ne correspond à mon problème.
Je pense que ce doit etre une question de ";" du csv.

C´est pas grave, merci quand meme.
Bonne soirée

 

[PatLac]

Bonsoir à tous !
Pour faire avancer le schmilblick ...
J´ai trouvé cela, ca ne correspond pas au titre du post, mais c´est dans le fil.
Ca marche pas mal!.. et avec explications pour ceux qui n´y connaisse rien comme moi !
Bonne soirée