en retard car interrompu mais vu que c'est fait je met quand même.
Une fonction à mettre dans un module standard :
VB:
Function num(ch As String, Optional typeCar As Boolean = True) As String
Dim typ As Boolean, p As Long
For p = 1 To Len(ch)
typ = Mid(ch, p, 1) Like "#"
If typ = typeCar Then num = num & Mid(ch, p, 1)
Next p
End Function
Syntaxe sur feuille :
chiffres : =num(B3)
autres caractères : =num(B3;FAUX)
eric