Suppression lignes contenant du texte et non un nombre

Dull

XLDnaute Barbatruc

• 22 Décembre 2012

• #2

Re : Suppression lignes contenant du texte et non un nombre

Salut noubxl76, le Forum

A tester dans un module Standard

Code:

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 22 Décembre 2012

• #3

Re : Suppression lignes contenant du texte et non un nombre

Bonjour,

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

JB

 

Vote positif 0 Vote négatif

N

nounbxl76

XLDnaute Occasionnel

• 22 Décembre 2012

• #4

Re : Suppression lignes contenant du texte et non un nombre

Merci à vous 2 ! Nickel !
Bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Décembre 2012

• #5

Re : Suppression lignes contenant du texte et non un nombre

Bonjour à tous,

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

N

nounbxl76

XLDnaute Occasionnel

• 22 Décembre 2012

• #6

Re : Suppression lignes contenant du texte et non un nombre

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

 

Vote positif 0 Vote négatif