effacer des cellules non numeriques

[Max]

Bonjour a tous, experts et debutants adeptes du VBA,

je cherche dans ma macro a effacer le contenu des cellules d'une colonne si elles ne contiennent pas des chiffres:
chaque cellule de ma colonne contient des mots, des espaces ou des nombres entiers, et je veux ne garder que les nombres, en effaçant le reste.
je pensais lui faire effacer toutes les cellules n'etant pas integer, mais je ne sais meme pas comment lui faire sortir le type de la cellule.

si quelqu'un a une idee, ca me depannerait vraiment bien.
merci beaucoup

 

[wally]

Bonjour Max et le forum,

Essaye ceci :

For i = 1 To Range("A65536").Cells.End(xlUp).Row
If Not IsNumeric(Range("A" & i)) Then
Range("A" & i).ClearContents
End If
Next i


@+

wally