XL 2010 VBA : Comment supprimer des lignes selon condition

musat · 1 Décembre 2016

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 · 1 Décembre 2016

Salut,

Une idée parmi tant d'autres :

VB:

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 · 2 Décembre 2016

Bonjour à tous,

Un autre essai dans le fichier joint.

musat · 2 Décembre 2016

Hieu à dit:
Salut,

Une idée parmi tant d'autres :

VB:

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 · 2 Décembre 2016

mapomme à dit:
Bonjour à tous,

Un autre essai dans le fichier joint.

Merci beaucoup.

Exactement ce que je cherchais.

XL 2010 VBA : Comment supprimer des lignes selon condition

musat

XLDnaute Nouveau

Hieu

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

Pièces jointes

musat

XLDnaute Nouveau

musat

XLDnaute Nouveau

Discussions similaires