supprimer des lignes commençant par un mot précis.

Bonjour à tous!

Je cherche une macro me permettant de supprimer des lignes si dans la colonne B on retrouve un texte commençant par "total ....".

Pour l'instant j'ai ça :

Code:

---

1 2 3 4

Dim a As Long For a = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Cells(a, "B").Value = "Total Travaux préparatoires HT :" Then Cells(a, 1).EntireRow.Delete Next a

---

Je voudrais juste qu'il retrouve toutes les cases commençant par total.

Merci d'avance

Bjr, bedoch,
voici une solution qui parcours dans la Feuil1 toutes les cellules de la colonne B jusqu'a la dernière cellule utilisée de la colonne et qui recherche si le premier mot de la cellule est "total" (En minuscule) et supprime toute la ligne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub recherche() Dim plage As Range, c As Range Sheets("Feuil1").Activate 'Plage de recherche ici B1 à Derniere cellule utilisée de colonne B Set plage = Range("B1" & ":B" & Range("B65000").End(xlUp).Row)   'Pour chaque cellule de la plage de recherche For Each c In plage 'je met dans une variable les 5 premiers caractères de la cellule vval = Left(c.Value, 5) 'Si vval = total alors j'efface la ligne entiere If vval = "total" Then c.EntireRow.Delete Next c End Sub

---

Si c ok n'oublie pas de mettre Résolu.
@+

Bonjour,
Je te propose une autre solution sans VBA.
Tu ajoutes à ton tableau une colonne que tu nommes "Ordre". Tu rentres 1 dans la première cellule et 2 dans la seconde puis tu tires ces 2 cellules jusqu'en bas de ton tableau.
Ensuite tu tries toutes tes lignes sur la colonne B. Tu sélectionnes toutes les lignes qui commencent par "total" dans ta colonne B et tu les supprimes.
Un dernier tri sur ta colonne "Ordre" pour remettre tes données en place et tu supprimes ta colonne "Ordre".

Salut à tous,

La solution proposée par rvtoulon est proche d’être la bonne mais une limite s’y incruste.
Elle ne fonctionne pas si deux lignes successives sont à supprimer. En effet la macro dit « quand tu as testé la cellule B1, va voir la cellule B2 » . Mais si la ligne 1 a été supprimée, l’ancienne cligne 2 deviendra colonne 1 et ne sera donc pas testée.
Comment pallier à ce problème ?

Merci de votre aide.

Cdt,

Riton

prend une boucle qui remonte de la derniere vers la premiere ligne.

Comme ca, si on teste la ligne 5 par exemple et qu'elle est a effacer, quand on la vire, la ligne 6 devient la ligne 5 mais on s'en fiche parce qu'on a déja testé la ligne 6 et que la prochaine ligne qui va devoir tester sera la ligne 4, qui, elle, n'a pas bougé