Suppression lignes contenant du texte et non un nombre

[nounbxl76]

Bonjour le forum,

Je pense que le sujet a déjà été traité mais après quelques recherches, je ne trouve pas vraiment mon besoin...
Je cherche un code me permettant de supprimer toutes les lignes d'une plage dont la colonne A contient du texte et non un nombre... sauf l'en-tête du tableau bien entendu...

Merci par avance pour votre aide.

Cordialement

 

[Dull]

Re : Suppression lignes contenant du texte et non un nombre

Salut noubxl76, le Forum

A tester dans un module Standard

Option Explicit

Sub EssAi()
Dim i As Long, DerLig As Long

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

Bonne Journée

 

[BOISGONTIER]

Re : Suppression lignes contenant du texte et non un nombre

Bonjour,

[A2:A65000].SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete

JB

 

[nounbxl76]

Re : Suppression lignes contenant du texte et non un nombre

Merci à vous 2 ! Nickel !
Bonne journée

 

[Pierrot93]

Re : Suppression lignes contenant du texte et non un nombre

Bonjour à tous,

salut Dull🙂
un peu en retard, mais c'est fait...

On Error Resume Next
Range("A2", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
On Error GoTo 0

bonne journée
@+

 

[nounbxl76]

Re : Suppression lignes contenant du texte et non un nombre

Les 3 propositions fonctionnent... merci à vous 3 donc !!