Discussion :

[olidov]

Bonjour à vous,

J'aimerais supprimer toutes les lignes d'une feuille sauf celles qui commence par "2018" ou "compte"

J'ai créé cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = Range("A65535").End(xlUp).Row To 3 Step -1
 If Left(Cells(i, 1), 4) <> "2018" Or Left(Cells(i, 1), 6) <> "Compte" Then Rows(i).Delete
Next i

Elle fonctionne si je prends chaque critère pris individuellement mais avec les 2 critères la macro me supprime toutes les lignes.

Merci pour votre aide.

[Invité]

Bonjour,

Remplacez le OR par un AND.