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😎