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

jeanmi · 15 Novembre 2021

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

Chris401 · 15 Novembre 2021

Re bonjour

VB:

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

sylvanu · 15 Novembre 2021

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

Chris401 · 15 Novembre 2021

Re bonjour

VB:

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 · 15 Novembre 2021

Chris401 à dit:

Re bonjour

VB:

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

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

jeanmi

XLDnaute Occasionnel

Chris401

sylvanu

XLDnaute Barbatruc

Chris401

XLDnaute Accro

jeanmi

XLDnaute Occasionnel

Discussions similaires