XL 2010 Pb avec décimales pour sommes de textbox

Skyna · 1 Novembre 2017

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.

Theze · 1 Novembre 2017

Bonjour,

Testes ce code :

Code:

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 And c.Text <> "" Then
                    
                     Résult = Résult + CDbl(c.Text)
         
                 End If
     
             End Select
   
    Next c
  
    UserForm1.Label1 = Format(Résult, "#,##0.00 €")

End Sub

eriiic · 1 Novembre 2017

Bonjour,

C'est parce que tu utilises la , en séparateur décimal.
Il faut la remplacer par un . pour vba qui ne connait que ça, que ce soit pour Val() ou Cdbl().
Ex :

VB:

Résult = Résult + Val(Replace(c, ",", "."))

eric

Skyna · 1 Novembre 2017

merci à vous 2!! ça marche!! (et dans les 2 cas ;-))

XL 2010 Pb avec décimales pour sommes de textbox

Skyna

XLDnaute Occasionnel

Pièces jointes

Theze

XLDnaute Occasionnel

eriiic

XLDnaute Barbatruc

Skyna

XLDnaute Occasionnel

Discussions similaires