Bonjour à tous,
J'ai un petit problème lors du calcul d'une somme de plusieurs textbox, je ne parviens pas à additionner les décimales, voici le code principal, je joins également le classeur complet avec le reste du code pour l'exemple.
Public Sub TotalPièce()
Dim c As Control
Dim Résult As Double
For Each c In UserForm1.Controls
Select Case TypeName(c)
Case "TextBox"
If c.Visible = True Then
Résult = Résult + Val(c)
End If
End Select
Next c
UserForm1.Label1 = Format(Résult, "####,## €")
End Sub
Je vous remercie par avance pour votre aide.
J'ai un petit problème lors du calcul d'une somme de plusieurs textbox, je ne parviens pas à additionner les décimales, voici le code principal, je joins également le classeur complet avec le reste du code pour l'exemple.
Public Sub TotalPièce()
Dim c As Control
Dim Résult As Double
For Each c In UserForm1.Controls
Select Case TypeName(c)
Case "TextBox"
If c.Visible = True Then
Résult = Résult + Val(c)
End If
End Select
Next c
UserForm1.Label1 = Format(Résult, "####,## €")
End Sub
Je vous remercie par avance pour votre aide.