Re-
Code modifié :
Sub FormatCurrency()
Dim c As Control
For Each c In Controls
If c.Name Like "TextBox*" And (Right(c.Name, 2) >= 32 And Right(c.Name, 2) <= 40) Then
If c = "" Then
c = "0,00€"
ElseIf InStr(1, Replace(c, ".", ","), ",") = 0 Then c = Replace(c, ".", ",") & ",00€"
ElseIf InStr(1, Right(Replace(c, ".", ","), 2), ",") >= 1 Then c = Replace(c, ".", ",") & "0€"
Else: c = Replace(c, ".", ",") & "€"
End If
End If
Next c
End Sub
Fichier modifié ci-joint
Restant à dispo