Effacer des lignes et décaler vers le haut

Jacky67

XLDnaute Barbatruc

• 16 Janvier 2018

• #2

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

VB:

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

 

Pièces jointes

• Mappe1.xlsm

  19.7 KB · Affichages: 22

Dernière édition: 17 Janvier 2018

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 16 Janvier 2018

• #3

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 16 Janvier 2018

• #4

PatLac à dit:

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

Cliquez pour agrandir...

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/

 

Dernière édition: 17 Janvier 2018

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 16 Janvier 2018

• #5

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

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 18 Janvier 2018

• #6

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

 

Pièces jointes

• ErfassungHL1.xlsm

  29.4 KB · Affichages: 23

Vote positif 0 Vote négatif