Extraire que les chiffres d'une cellule Excel

vgendron à dit:

Hello
avec une fonction personalisée à mettre dans un module vba standard
puis tu l'utilises comme une fonction standard d'excel
en E4
=RecupChiffres2(A4)

VB:

Function RecupChiffres2(target As Range) As Long


For i = 1 To Len(target)
    If IsNumeric(Mid(target, i, 1)) Then
        Final = Final & Mid(target, i, 1)
    End If
Next i
RecupChiffres2 = CInt(Final)
End Function

Cliquez pour agrandir...

Chris24 à dit:

Bonjour

ou par formule

Cliquez pour agrandir...