Bonjour,
Fonction personnalisée à essayer :
Function PREMNB(tx As String)
Dim c$, i%, par As Boolean
Application.Volatile
For i = 1 To Len(tx)
c = Mid(tx, i, 1)
If Not par And IsNumeric(c) Then
PREMNB = Val(Right(tx, Len(tx) - i + 1))
Exit Function
ElseIf c = "(" Then
par = True
ElseIf c = ")" Then
par = False
End If
Next i
PREMNB = ""
End Function
Cordialement.