Suppression ligne sauf si condition

[franck70]

Bonjour,

J'ai un tableau avec plein de ligne. Je souhaite une macro qui supprime toutes les lignes si les premiers chiffres sont différents de XXXXXX. J'ai fait quelque chose, mais ça ne fonctionne pas. Le principe ici est de dire que, si dans la colonne B, les 8 chiffres de gauche sont égaux à 99633488. Mais il supprime la ligne concernée quand même !

Dim q As Integer
For q = Range("B65536").End(xlUp).Row To 2 Step -1
If Left(Range("B" & q), 8) <> "99633488" Then Rows(q).Delete
Next q


Pouvez-vous m'aider ?

Merci d'avance

 

[JCGL]

Re : Suppression ligne sauf si condition

Bonjour à tous,

As tu essayé en enlevant les " entourant "99633488" ?

A+ à tous

 

[franck70]

Re : Suppression ligne sauf si condition

Bonjour JCGL,

Je viens d'esayer en enlevant les " " et les lignes sont toujours supprimées.

Merci quand même.

 

[JCGL]

Re : Suppression ligne sauf si condition

Bonjour à tous,

Peux-tu déposer un fichier avec ce que tu as ?

Il sera intéressant de voir la structure des cellules.

A+ à tous

 

[franck70]

Re : Suppression ligne sauf si condition

Re-bonjour,

Ci-joint un fichier avec la macro qui ne fonctionne pas.

Merci pour votre aide

 

[JCGL]

Re : Suppression ligne sauf si condition

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
Sub Efface()
 
Dim X As Integer
For X = Range("B65536").End(xlUp).Row To 2 Step -1
  If Left(Range("B" & X), 8) = "99633488" And Left(Range("B" & X), 8) = "99633124" Then Rows(X).Delete
  Next X
End Sub

A+ à tous

Edition : les = sont, peut-être, à remplacer par des <> (l'énonce n'est pas clair ou il manque un mot...

 

[franck70]

Re : Suppression ligne sauf si condition

Bonjour,

Je viens d'essayer avec ta proposition, mais rien ne s'efface.

Merci pour ta proposition.

 

[JCGL]

Re : Suppression ligne sauf si condition

Bonjour à tous,

Peux-tu tester le fichier joint ?

A+ à tous

 

[franck70]

Re : Suppression ligne sauf si condition

Bonjour,

Merci JCGL, ça a l'air de ben fonctionner maintenant.