addition labels avec centaine

[Dennnisss]

Bonsoir ou bonjour a tous

J,ai un petit userform et j'aimerais que vous essayer d'entree un chiffre dans le textbox pour voir l'addition de mes labels
entree le chiffre 100 et regarder les calculs des taxes

mettre le chiffre 100$ il devrait y avoir une taxe de 7$ dans tps
il devrait y avoir 6,42$ dans tvq
et il devrait y avoir un total de 113,42 $ dans le grand total
mon probleme c,est qu'il affiche 113$ , il n'affiche pas les cents

je cherche la formule de cette enigme

merci de votre aide

dennnisss 😉😉

 

[cbea]

Re : addition labels avec centaine

Bonjour Dennnisss,

Voici une solution :

Private Sub Curseur()
  Dim Ctrl As Control
[COLOR="Red"]  Dim varTextBox3 As Double
  Dim varLabel30 As Double, varLabel31 As Double, varLabel32 As Double
  Dim varLabel33 As Double, varLabel36 As Double, varLabel37 As Double[/COLOR]
  For Each Ctrl In Me.Controls
       If TypeName(Ctrl) = "TextBox" Then
          Ctrl.BackColor = IIf(Ctrl Is ActiveControl, &H8000000D, &H80000005)
       End If
  Next Ctrl
  
[COLOR="red"]  varTextBox3 = 0
  If TextBox3 <> "" And IsNumeric(TextBox3) Then varTextBox3 = CDbl(TextBox3)
  varLabel30 = varTextBox3
  varLabel31 = varTextBox3 * 7 / 100
  varLabel32 = varLabel31 + varLabel30
  varLabel33 = varLabel32 * 6 / 100
  varLabel36 = varLabel30 + varLabel31 + varLabel33[/COLOR]
  
  Label30 = Format([COLOR="red"]varTextBox3[/COLOR], "###.0## $")
  Label31 = Format([COLOR="red"]varLabel31[/COLOR], "###.0## $")
  Label32 = Format([COLOR="red"]varLabel32[/COLOR], "###.0## $")
  Label33 = Format([COLOR="red"]varLabel33[/COLOR], "###.0## $")
  Label36 = [COLOR="red"]varLabel36[/COLOR]
  Label37 = Format([COLOR="red"]varLabel36[/COLOR], "####.0## $")
End Sub

En fait, j'ai utilisé des variables de type Double pour réaliser les calculs.

Peux-tu faire un essai et me tenir au courant ?

Merci