Probleme d'arrondi en VBA

Bonsoir

Lorsque je calcule mes coefficients trimestriels j’obtiens un total de 4.025, je souhaiterai réctifier les coefficients trimestriels pour obtenir 4 de la manière suivante :

T1 = 0,8696 /4,025 * 4 = 0.864

T1 = 1,5103/4,025 * 4 = 1,501

T1 = 1,257/4,025 * 4 = 1,249

T1 = 0,388/4,025 * 4 = 0,386

T1 0,8696 0,864

T2 1,5103 1,501

T3 1,257 1,249

T4 0,388 0,386

4,025 4,000

Mon code est le suivant mais ça ne marche pas

'calcul des Coefficients saisonniers trimestriels
Trim1 = (Range("g2").Value + Range("g6").Value + Range("g10").Value) / 3
Trim2 = (Range("g3").Value + Range("g7").Value + Range("g11").Value) / 3
Trim3 = (Range("g4").Value + Range("g8").Value + Range("g12").Value) / 3
Trim4 = (Range("g5").Value + Range("g9").Value + Range("g13").Value) / 3
' affichage des Coefficients saisonniers trimestriels
Cells(7, 11).Value = Trim1 / Range("k11") * 4
Cells(8, 11).Value = Trim2/ Range("k11") * 4
Cells(9, 11).Value = Trim3/ Range("k11") * 4
Cells(10, 11).Value = Trim4/ Range("k11") * 4

Merci pour votre aide

Cordialement

Bonjour BROSON,

L'affichage de tes coeffs saisonniers trimestriels ne peut pas marcher car en K11 tu as une formule qui te calcule la somme de K7 à K10..

Or, lorsque tu fais

Cells(7, 11).Value = Trim1 / Range("k11") * 4

La cellule cells(7,11) (=K7) change, donc K11 change aussi.

Ce qui signifie que le Range("k11") est différent d'une ligne à l'autre dans cette partie de code :

Cells(7, 11).Value = Trim1 / Range("k11") * 4
Cells(8, 11).Value = Trim2/ Range("k11") * 4
Cells(9, 11).Value = Trim3/ Range("k11") * 4
Cells(10, 11).Value = Trim4/ Range("k11") * 4

Tu peux remplacer par ceci :

' affichage des Coefficients saisonniers trimestriels
somTrim = Trim1 + Trim2 + Trim3 + Trim4
Cells(7, 11).Value = Trim1 / somTrim * 4
Cells(8, 11).Value = Trim2 / somTrim * 4
Cells(9, 11).Value = Trim3 / somTrim * 4
Cells(10, 11).Value = Trim4 / somTrim * 4