Suppression ligne sous conditions

[arnaudbu]

Bonjour,

J'aimerais supprimer toutes les lignes qui contiennent OK en P et ce à partir de P7.

J'ai essayé ceci (issu du forum), mais il me dit NEXT sans FOR ?????

    Sheets("supp").Select

        For cpt = Range("A65536").End(xlUp).Row To 7 Step -1

        If Range("P" & cpt) = "OK" Then

            Rows(cpt).Delete

        Next cpt

Merci et @+

 

[Paritec]

Re : Suppression ligne sous conditions

Bonsoir arnaudbu
et le end if tu l'as pas oublié?????
bonne soirée
a+
Papou 🙂

 For cpt = Range("A65536").End(xlUp).Row To 7 Step -1

        If Range("P" & cpt) = "OK" Then

            Rows(cpt).Delete
[COLOR=Red]        End if[/COLOR]
        Next cpt

 

[Paritec]

Re : Suppression ligne sous conditions

Re Arnaubu
ou si tu veux pas de end if
a+
papou 🙂

 For cpt = Range("A65536").End(xlUp).Row To 7 Step -1

        If Range("P" & cpt) = "OK" Then Rows(cpt).Delete

 Next cpt

 

[arnaudbu]

Re : Suppression ligne sous conditions

😱 Arff la fatigue surement. Donc si je comprends bien, le End IF n'est pas obligatoire si l'on met tout sur la même ligne ou y a t-il une autre raison ??

 

[Paritec]

Re : Suppression ligne sous conditions

Re Arnaudbu
oui tout a fait
a+
Papou 🙂