Bonjour,Merci,
j'ai collé la formule dans mon fichier et changé les numéros de cellules mais là elle ne fonctionne pas.
fonction personnalisée à placer dans un module standard :Bonjour à tous,
je souhaite extraire la valeur numérique des cellules
Merci
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
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.il faut la valider par l'appui des touches CTRL MAJ