Effacer les lignes lorsque un cellule contient un texte x

[nak]

Bonjour,

Je voudrais effacer les lignes d'une feuille lorsque une des cellules contient "Total*"
Voici ma macro :

Sub Macro1()

Dim cell As Range
Dim test As Integer
Dim i As Integer

Application.ScreenUpdating = False

For i = 100 To 1 Step -1
For Each cell In Rows(i)
If cell.Text.Value = Total & "*"
Next
If test = 1 Then Rows(i).Delete
test = 0
Next

Application.ScreenUpdating = True

End Sub

Je n'arrive pas à définir la ligne : If cell.Text.Value = Total & "*"
Soit quand une celllule contient Total*

Quelqu'un peut m'aider SVP

Merci

 

[tototiti2008]

Re : Effacer les lignes lorsque un cellule contient un texte x

Bonjour nak,

il manque des bouts, non ?

outre la syntaxe, ça rique d'être long, tu teste 256 cellules par lignes... tu ne peux pas limiter à certaines colonnes ?

 

[nak]

Re : Effacer les lignes lorsque un cellule contient un texte x

Je peux limiter aux colonnes A et D.
Sinon le temps de traitement risque d'être long tu veux dire ? 🙂

 

[tototiti2008]

Re : Effacer les lignes lorsque un cellule contient un texte x

Re,

Oui, même si sur 100 lignes ça devrait aller...

Sub Macro1()

Dim i As Integer

Application.ScreenUpdating = False

For i = 100 To 1 Step -1
If ucase(range("A" & i).Value) Like "TOTAL*" or ucase(range("D" & i).Value) Like "TOTAL*" then rows(i).Delete
Next i

Application.ScreenUpdating = True

End Sub

 

[nak]

Re : Effacer les lignes lorsque un cellule contient un texte x

Cela fonctionne parfaitement
Merci bien Toto 😉

 

[nak]

Re : Effacer les lignes lorsque un cellule contient un texte x

erreur..Désolé