addition pas juste

Version imprimable

addition pas juste

bonjour j'ai ceci dans une cellule 43.20 et le résultat de mon addition donne ceci43 .00 ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub OptionButton2_Click() '''2 competition
If var = True Then
     Me.OptionButton2.Value = False
      Nouveaux_collegues.Label41.Caption = Format(Sheets("Cotisations").Range("R6").Value, "# ##0.00")
 
     Label45.Caption = Format(Val(Me.Label40.Caption) + Val(Me.Label41.Caption) + Val(Me.Label42.Caption) + Val(Me.Label43.Caption) + Val(Me.Label44.Caption), "# ##0.00")
Else
    Me.OptionButton2.Value = True
     Nouveaux_collegues.Label41.Caption = Format(Sheets("Cotisations").Range("R5").Value, "# ##0.00")
 
    Label45.Caption = Format(Val(Me.Label40.Caption) + Val(Me.Label41.Caption) + Val(Me.Label42.Caption) + Val(Me.Label43.Caption) + Val(Me.Label44.Caption), "# ##0.00")
End If
var = False
End Sub

merci

30/05/2012, 19h47
nchal

Bonjour pilounet(encore?)

Essai de faire l'addition entre les Val sans utiliser la fonction et mets les dans Label45.Caption ou Val(Label45.Caption). Puis ensuite, applique le format.

Re,

En complément, une adaptation de ton code en retirant les redondances

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub OptionButton2_Click() '''2 competition
 
If Var = True Then
      Nouveaux_collegues.Label41.Caption = Format(Sheets("Cotisations").Range("R6").Value, "# ##0.00")
Else
     Nouveaux_collegues.Label41.Caption = Format(Sheets("Cotisations").Range("R5").Value, "# ##0.00")
End If
 
Me.OptionButton2.Value = Not Var
 
Label45.Caption = Format(Val(Label40.Caption) + Val(Label41.Caption) + Val(Label42.Caption) + Val(Label43.Caption) + Val(Label44.Caption), "# ##0.00")
 
Var = False
 
End Sub

30/05/2012, 22h10
pilounet54

1 pièce(s) jointe(s)

erreur

j'ai bien sur repris ton code mais dans l'addition resultat label 45 toujours une erreur dans les unitées ,dans le label 41 j'ai bien 43.20 est dans le resulat label45 43.00 que me conseil-tu ?
30/05/2012, 23h26
gFZT82

Bonjour pilounet54,

As-tu essayé en remplaçant la virgule de 43,20 par un point (43.20) ?

Cordialement.
30/05/2012, 23h37
jfontaine

On ne sait jamais, mais essais sans le format

Code:

Label45.Caption =Val(Label40.Caption) + Val(Label41.Caption) + Val(Label42.Caption) + Val(Label43.Caption) + Val(Label44.Caption)
31/05/2012, 08h10
pilounet54

toujours pareille ! les dizaines ne sont pas juste
31/05/2012, 08h16
pilounet54

Citation:

Envoyé par gFZT82

Bonjour pilounet54,

As-tu essayé en remplaçant la virgule de 43,20 par un point (43.20) ?

Cordialement.

effectivement avec le point cela fonctionne merci beaucoup