Supression de lignes contenant du texte

[OLIV67]

Bonjour

j'ai importé un fichier txt dans excel,
mais je souhaite supprimer toutes les lignes contenant du texte dans la colonne A.
Autrement dit je souhaite garder que les lignes contenant du numérique e colonne A.

Merci pour votre aide


Olivier [file name=Classeur2_20051114104000.zip size=26243]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051114104000.zip[/file]

 

[Abel]

Bonjour OLIV67,

Essaie ce bout de code :

For Lgn = DerLgn To 2 Step -1
If Not IsNumeric(Cells(Lgn, 1)) Then Cells(Lgn, 1).EntireRow.Delete shift:=xlUp
Next


Abel.

 

[OLIV67]

merci abel

cela fonctionne

voilà le code :

Application.ScreenUpdating = False
For c = Range('A65536').End(xlUp).Row To 2 Step -1
If Not IsNumeric(Cells(c, 'a')) Then
Cells(c, 'a').EntireRow.Delete shift:=xlUp
End If
Next
Application.ScreenUpdating = True

merci beaucoup


olivier