VBA- Supprimer lignes si commence par..puis les lignes suivantes si....

[Birone]

Bonjour Forum

J'arrive à supprimer des lignes si elle commence par un mot ou une partie.

Dans mon cas, j'aimerais trouver un code VBA qui me permet de: (voir fichier)

- Si ligne commence par "BLA", supprimer ligne entière
- Aller à la ligne suivante, si la ligne n'est pas égale à "BLO", supprimer aussi. Si égale à "BLO", ne pas supprimer, aller à la ligne suivante jusqu'à trouver le prochain "BLA" et ainsi de suite.


Je sais pas si je suis clair, mais dans le fichier, j'ai fait une feuille avec les données originales et dans la 2ieme feuille, le résultat désiré.

Si quelqu'un a une idée...cela serait grandement apprécié car ça fait 2heures que je le fais à la main et il me reste encore 45000 lignes lol.....

Merci les amis

 

[Dranreb]

Re : VBA- Supprimer lignes si commence par..puis les lignes suivantes si....

Bonsoir.

Comme ça :

Sub Macro1()
With Feuil1.UsedRange.Columns(Feuil1.UsedRange.Columns.Count + 1)
   .Cells(1, 2).FormulaR1C1 = "=RC1=""BLA"""
   .Offset(1, 1).FormulaR1C1 = "=OR(RC1=""BLA"",AND(RC1<>""BLO"",R[-1]C))"
   .FormulaR1C1 = "=1/RC[1]"
   .SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
   .Resize(, 2).EntireColumn.Delete
   End With
End Sub

 

[Birone]

Re : VBA- Supprimer lignes si commence par..puis les lignes suivantes si....

Merci beaucoup Dranreb !!!!

Tu es mon héros....