XL 2010 Recherche donnée <> nombre et sup la ligne si oui

[jeanmi]

Bonjour à tous,

Objectif :

Rechercher dans la colonne (B) à partir de la ligne 3 et suivante le la valeur est différent d’un nombre. Si oui supprimer cette ligne du tableau, jusqu'à la dernière cellule renseignée de la colonne(J)

je n'arrive pas à trouver une solution.

J’ai bien trouvé des choses mais rien compris comment appliquer à mon besoin.


Merci de l'aide.

Cordialement

 

[sylvanu]

Bonjour Jeanmi,
Un petit fichier test serait le bienvenu, ça évitera de tâtonner.

 

[Chris401]

Re bonjour

Sub SupprimeTexte()
Derlg = Range("J" & Rows.Count).End(xlUp).Row
For i = Derlg To 3 Step -1
If Not IsNumeric(Cells(i, 2)) Then Rows(i).Delete
Next i
End Sub

 

[jeanmi]

Re bonjour

Sub SupprimeTexte()
Derlg = Range("J" & Rows.Count).End(xlUp).Row
For i = Derlg To 3 Step -1
If Not IsNumeric(Cells(i, 2)) Then Rows(i).Delete
Next i
End Sub

R Bonjour @Chris401 et à tous,

Pour la deuxième fois dans la journée, un grand merci de l’aide qui fonctionne nickel.
Ce que je faisais en une bonne journée, avec des risques d’erreur, avec ton aide, la macro le fait en 2 minutes.
cordialement