Supprimer les lignes avec xyz en colonne A par macro

20essai.xlsx (9.37 Ko)

[*]Bonjour,

J'ai un fichier contenant des centaines de lignes.

Malheureusement, certaine cellules étant fusionnées, je ne peux pas faire de tri.

Je souhaite supprimer par macro toutes les lignes qui commence par une cellule vide ou par une cellule contenant "Identifiant"

J'ai tenté ceci mais c'est insuffisant

Range("A1").Select
Do While ActiveCell <> "Identifiant"
ActiveCell.Offset(1, 0).Select
Loop
Rows(Selection.Row).Delete shift:=xlUp

Ca ne me supprime que la première ligne trouvée et ca plante s'il n'en trouve pas.

Merci de votre aide

Charly

bonjour,

une proposition de macro

Sub supprime()
For i = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("a" & i) = "" Or Range("a" & i) = "identifiant" Then Rows(i).Delete shift:=xlUp
Next i
End Sub

C'est super! Ca marche.

Merci H2SO4

J'avais tenté un boucle mais quand je supprimais une ligne cela revenait sur la pécédente je n'arrivait qu'a en supprimer une a la fois jamais des consécutives.

Charly

Rechercher des sujets similaires à "supprimer lignes xyz colonne macro"