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

Birone · 13 Novembre 2013

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 · 13 Novembre 2013

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

Bonsoir.

Comme ça :

VB:

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 · 13 Novembre 2013

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

Merci beaucoup Dranreb !!!!

Tu es mon héros.... 🙂

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

Birone

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Birone

XLDnaute Nouveau

Discussions similaires

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

Birone

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Birone

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency