Discussion :

[bedoch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.
@+

[marc56]

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".

[Riton67]

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

[EmmanuelleC]

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é