N'extraire que les chiffres d'une colonne

[lommyr59]

Bonjour !

Sur la colonne D d'un fichier Excel, j'ai des chiffres et parfois sur certaines cellules des lettres, j'aimerais copier les données de la colonne D sur la colone E en ne conservant que les chiffres de la colonne D, est-ce possible ?

Merci.

 

[Hervé]

Re : N'extraire que les chiffres d'une colonne

salut

en attendant les formulistes, voici une proposition par une fonction personnalisée.

Public Function numeric(cellule As Range) As Double
Dim i As Byte
Dim t As String

For i = 1 To Len(cellule)
    If IsNumeric(Mid(cellule, i, 1)) Then t = t & Mid(cellule, i, 1)
Next i
numeric = CDbl(t)
End Function

a plus

 

[Lolote83]

Re : N'extraire que les chiffres d'une colonne

Salut LOMMYR59,
Exemple en cellule E5

=si(estnum(D5)=VRAI;D5;"")

Formule à tirer vers le bas.
Un simple copié-coller les valeurs fera ensuite l'affaire.
@+ Lolote83

 

[BOISGONTIER]

Re : N'extraire que les chiffres d'une colonne

Bonjour,

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_NumChaine.xls

JB

 

[david84]

Re : N'extraire que les chiffres d'une colonne

Bonjour,
à tester :

Function NombreDansChaine(c As String) As Double
Dim oRegExp As Object
Set oRegExp = CreateObject("vbscript.regexp")
If IsNumeric(c) Then NombreDansChaine = c: Exit Function
With oRegExp
  .Global = True
  .Pattern = "[^0-9]"
  If .test(c) Then NombreDansChaine = .Replace(c, "")
End With
End Function

A+

 

[thx1138]

Re : N'extraire que les chiffres d'une colonne

Bonjour,

Voici une autre solution =SIERREUR(CNUM(D5);"")

 

[Victor21]

Re : N'extraire que les chiffres d'une colonne

Bonjour à toud.

Pour le fun :

=SIERREUR(ESTNUM(A1)*A1;"")

@Lolote83 =SI(ESTNUM(D5);D5;"") suffit : Le test "=vrai" est déjà effectué

 

[R@chid]

Re : N'extraire que les chiffres d'une colonne

Bonjour et Bienvenue sur XLD,
Salut les amis,
en E1 :
une autre interprétation de l’énoncé :

=SIERREUR(PETITE.VALEUR(D:D;LIGNE());"")

@ tirer vers le bas


@ + +