Extraire valeur numérique de la cellule

kerfoul · 10 Juillet 2016

Bonjour à tous,
je souhaite extraire la valeur numérique des cellules
Merci

Chris401 · 10 Juillet 2016

Bonjour

Avec une formule matricielle :

Code:

=1*STXT($A1;EQUIV(0;(ESTERREUR(STXT($A1;LIGNE(INDIRECT("1:"&NBCAR($A1)));1)*1)*1);0);NBCAR($A1)-SOMME((ESTERREUR(STXT($A1;LIGNE(INDIRECT("1:"&NBCAR($A1)));1)*1)*1)))

Cordialement
Chris

kerfoul · 10 Juillet 2016

Merci,
j'ai collé la formule dans mon fichier et changé les numéros de cellules mais là elle ne fonctionne pas.

M12 · 10 Juillet 2016

kerfoul à dit:
Merci,
j'ai collé la formule dans mon fichier et changé les numéros de cellules mais là elle ne fonctionne pas.

Bonjour,

Comme ta mentionné Chris401, c'est une formule matricielle, il faut la valider par l'appui des touches CTRL MAJ et Entrée et tirer ta formule par le bas ensuite

Modeste geedee · 10 Juillet 2016

Bonsour®

kerfoul à dit:
Bonjour à tous,
je souhaite extraire la valeur numérique des cellules
Merci

fonction personnalisée à placer dans un module standard :

VB:

Function ExtNum(target)
    Dim Car As Integer
    For Car = 1 To Len(target)
        If InStr("0123456789.,", Mid(target, Car, 1)) > 0 Then
            ExtNum = ExtNum & Mid(target, Car, 1)
        End If
    Next
End function

kerfoul · 10 Juillet 2016

M12 à dit:
il faut la valider par l'appui des touches CTRL MAJ

Vous avez juste oublier de dire qu'il faut cliquer dans la barre de formule et la valider par l'appui des touches CTRL MAJ.

Merci c'est OK

Extraire valeur numérique de la cellule

kerfoul

XLDnaute Nouveau

Pièces jointes

Chris401

XLDnaute Accro

Pièces jointes

kerfoul

XLDnaute Nouveau

M12

XLDnaute Accro

Modeste geedee

XLDnaute Barbatruc

kerfoul

XLDnaute Nouveau

Discussions similaires