Discussion :

[pilounet54]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[jfontaine]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pilounet54]

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 ?

[gFZT82]

Bonjour pilounet54,

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

Cordialement.

[jfontaine]

On ne sait jamais, mais essais sans le format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label45.Caption =Val(Label40.Caption) + Val(Label41.Caption) + Val(Label42.Caption) + Val(Label43.Caption) + Val(Label44.Caption)

[pilounet54]

toujours pareille ! les dizaines ne sont pas juste

[pilounet54]

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