Suppression en VBA

nadir**** · 10 Juillet 2010

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

Code:

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 · 10 Juillet 2010

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 · 10 Juillet 2010

Re : Suppression en VBA

Bonjour à tous

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

Code:

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**** · 10 Juillet 2010

Re : Suppression en VBA

Merci camarchepas!
Merci Staple.

Suppression en VBA

nadir****

XLDnaute Occasionnel

camarchepas

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

nadir****

XLDnaute Occasionnel

Discussions similaires

Suppression en VBA

nadir****

XLDnaute Occasionnel

camarchepas

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

nadir****

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency