XL 2010 VBA : Comment supprimer des lignes selon condition

[musat]

Bonsoir,

J'ai un tableau ne contenant qu'une seule colonne A.
Le nombre de lignes est variable.

J'aimerais convevoir un code VBA qui va lire dans les cellules d'en haut en bas + et à chaque fois qu'il trouve la valeur </INDICE>, il doit supprimer la ligne contenant cette cellule ainsi que les lignes suivantes jusqu'à la cellule contenant la valuer <INDICE> (il faudrait inculre cette ligne aussi dans la suppression).

Merci pour votre aide

 

[Hieu]

Salut,

Une idée parmi tant d'autres :

Sub mlk()
Do
If Range("a1").Offset(i, 0) = "</INDICE>" Then Range("a1").Offset(i, 0).Rows.Delete
i = i + 1
Loop Until Range("a1").Offset(i, 0) = "<INDICE>"
End Sub

 

[mapomme]

Bonjour à tous,

Un autre essai dans le fichier joint.

 

[musat]

Salut,

Une idée parmi tant d'autres :

Sub mlk()
Do
If Range("a1").Offset(i, 0) = "</INDICE>" Then Range("a1").Offset(i, 0).Rows.Delete
i = i + 1
Loop Until Range("a1").Offset(i, 0) = "<INDICE>"
End Sub

Merci beaucoup pour votre retour

 

[musat]

Bonjour à tous,

Un autre essai dans le fichier joint.

Merci beaucoup.

Exactement ce que je cherchais.