selection valeur numerique

[hurricane]

Bonsoir a tous

apres une importation de données je me retrouve avec diverses données dans la colonne D ( chiffres et lettres) et je cherche a copier coller les valeurs numerique et uniquement les valeurs numerique dans une autre feuille

je n'arrive pas a faire le filtre du genre
si cellule D5 = numerique copier coller feuille 2 range d1 sinon
test cellule D6 etc

bon voila merci d'avance pour le coup de main

 

[chris]

Bonjour
Ajouter une colonne avec la formule
=ESTNUM(D2)
à inscrire dans la ligne 2 et a recopier jusqu'en bas
puis faire un filtre auto sur la valeur vrai
puis copier coller les lignes filtrées.

 

[Claudy]

essaye ceci:

Sub Macro2()
i = 1
For Each cel In Range('D150')
If IsNumeric(cel) Then
Sheets('Feuil3').Range('F' & i) = cel.Value
i = i + 1
End If
Next

End Sub

A+
Claudy

 

[hurricane]

ok merci

je vais mettre en application demain matin

Salut