Extraire valeur numérique de la cellule

[kerfoul]

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

 

[Chris401]

Bonjour

Avec une formule matricielle :

=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]

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

 

[M12]

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]

Bonsour®

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

fonction personnalisée à placer dans un module standard :

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]

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