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
Bonsoir à tous,
Comme Iznogood1 mais avec des formules qui fonctionnent aussi pour ceux qui n'ont pas Excel2016.