Fonction qui ne renvoie que la partie numérique d'une chaîne de caractères

Magic_Doctor · 9 Janvier 2010

Bonsoir à tous,

Existe-t-il dans Excel une fonction qui ne renvoie que la partie numérique d'une chaîne de caractères ?
Par ex. :

f(1,33 bidule) ---> 1,33
f(255 bidules) --> 255

kjin · 9 Janvier 2010

Re : Fonction qui ne renvoie que la partie numérique d'une chaîne de caractères

Bonsoir,

Magic_Doctor à dit:
Existe-t-il dans Excel une fonction qui ne renvoie que la partie numérique d'une chaîne de caractères ?

Pas à ma connaissance mais tu peux la créer
Avec ton exemple

Code:

Function CH(cel As Range)
c = Replace(cel, ",", ".")
CH = Val(c)
End Function

En A1 --> 1,33 bidule
En B1 --> =CH(A1) te donnera 1,33
A+
kjin

jeanpierre · 9 Janvier 2010

Re : Fonction qui ne renvoie que la partie numérique d'une chaîne de caractères

Bonjour Magic Doctor, kjin,

Sinon par formule : =GAUCHE(A1;CHERCHE(" ";A1)-1)*1

Avec tes données en colonne A, par exemple.

Bonne soirée.

Jean-Pierre

bqtr · 10 Janvier 2010

Re : Fonction qui ne renvoie que la partie numérique d'une chaîne de caractères

Bonsoir,

Un autre exemple par fonction perso basé sur ton exemple (une seule série de chiffre à extraire) :

Code:

Function ExtChif(Cell As Range)
Dim k As Integer, Deb As Integer, Fin As Integer
For k = 1 To Len(Cell)
 If IsNumeric(Mid(Cell, k, 1)) Then Deb = k: Exit For
Next
For k = Len(Cell) To 1 Step -1
 If IsNumeric(Mid(Cell, k, 1)) Then Fin = k: Exit For
Next
ExtChif = CDbl(Mid(Cell, Deb, (Fin - Deb) + 1))
End Function

En A1 par exemple : f(1,33 bidule)
En C1 : =ExtChif(A1), le résultat sera 1,33

La fonction est à mettre dans un module de code standard.

A+

Fonction qui ne renvoie que la partie numérique d'une chaîne de caractères

Magic_Doctor

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

jeanpierre

Nous a quitté

bqtr

XLDnaute Accro

Discussions similaires

Fonction qui ne renvoie que la partie numérique d'une chaîne de caractères

Magic_Doctor

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

jeanpierre

Nous a quitté

bqtr

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency