Suppression en VBA

[nadir****]

Bonjour
Je voudrais supprimer les lignes d'un tableau dont la première cellule ne commence pas par "Total ".
J'ai écrit le code suivant en VBA

Set Plage = Range("C69:P110")
    Lignes = Plage.Rows.Count    
    For i = Lignes To 1 Step -1     
        If Plage(i, 1) <> "Total *" Then Plage.Rows(i).Delete xlShiftUp
    Next

En fait tout le tableau s'efface. (le caractère * est mal utilisé)
Comment écrire simplement en VBA que Plage(i,1) ne commence pas par Total .
Ex:
Plage (i,1) = Total camions alors Faux
Plage (i,1) = Titi alors Vrai

Merci.

 

[camarchepas]

Re : Suppression en VBA

Bonjour,

Moi, jre ferai comme ceci :

Set Plage = Range("C69😛110")
Lignes = Plage.Rows.Count
For i = Lignes To 1 Step -1
If instr(1,Plage(i, 1) , "Total")>0 Then Plage.Rows(i).Delete xlShiftUp
Next

 

[Staple1600]

Re : Suppression en VBA

Bonjour à tous


Et moi je ferai comme cela 😉 (ce qui évite d'avoir recours à une boucle)

Sub a()
Dim pf As Range
[C69].AutoFilter Field:=1, Criteria1:="<>Total*", Operator:=xlAnd
Set pf = Range("_FilterDataBase")
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).Delete -4162
ActiveSheet.ShowAllData
Set pf = Nothing
End Sub

 

[nadir****]

Re : Suppression en VBA

Merci camarchepas!
Merci Staple.