Supprimer les lignes si valeur fausse

[chris6999]

Bonsoir

Je cherche à supprimer des lignes pour toutes les lignes où A est non vide (à partir de la ligne 5) si la valeur de la colonne J n'est pas égale à TOTO

Je trouve beaucoup de topics pour supprimer les lignes si valeur colonne égale à XXX
mais pas pour une valeur fausse.

Merci d'avance
Cordialement

 

[Yaloo]

Re : Supprimer les lignes si valeur fausse

Bonsoir Chris

Avec un truc dans ce style là :

For i = [A65536].End(xlUp).Row To 5 Step -1
  If Range("A" & i) <> "" And Range("J" & i) <> "TOTO" Then Rows(i).EntireRow.Delete
Next

A+

Martial

 

[chris6999]

Re : Supprimer les lignes si valeur fausse

Merci Martial mais cela ne fonctionne pas
Le système tourne un moment et affiche"incompatibilité de type"
Cordialement

 

[Yaloo]

Re : Supprimer les lignes si valeur fausse

Re,

Avec un petit fichier ça serait mieux.

A+

 

[chris6999]

Re : Supprimer les lignes si valeur fausse

Bonsoir

Voilà chose faite

A+

 

[Yaloo]

Re : Supprimer les lignes si valeur fausse

Re,

Désolé, mais ça fonctionne très bien, si tu mets un bouton ActiveX, le mieux est de lui attribuer la macro. Où alors j'ai rien compris 😕

Vois le fichier ci-joint.

A+

Martial