probleme décimale après procédure checkbox

Version imprimable

Bonjour les amis
un nouveau gros problème pour moi mais sans doute petit pour vous
je saisie mais devis à partir d'un userform et chaque fois que je saisie une nouvelle ligne cela rajoute une ligne sur ma feuille excel (jusque la pas de soucis)
après j'ai une checkbox qui ce mais sur le coté de ma ligne userform des que je valide la dernière.

les checkbox qui sont la pour me permette de faire un sous total des lignes précédentes, au besoin, avant de continu la suite, mon code que voici

Code:

[SUM(B19:B20)]

s'agrandi au fur à mesure. ce que j'ai fait pour l'instant fonctionne un peu près mais quand je valide mon code checkbox j'ai 5 chiffres après la virgule (1er problème) et s'achant que j'ai 18 checkbox y a t'il pas moyen de facilité mon code

Code:

[SUM(B19:B20)]

sinon je suis obligé de le faire manuellement par rapport à chaque ligne . en vous remerciant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub o1_Click() taxe = Worksheets("Ndev").Range("B4").Value tva = [SUM(O19:O20)] * taxe Rep = MsgBox("Souhaitez-vous créer un sous-total pour la ligne ?", vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation") If Rep = vbYes Then Call Ajout_ligne Worksheets("Ndev").Range("G20").Value = "Sous-total :" & " " & [SUM(O19:O20)] + tva & " " & "€ TTC" Range("G20").Select With Selection .HorizontalAlignment = xlRight End With l2.Visible = True l2 = Range("G20") Else: Rep = vbNo Exit Sub End If End Sub
Pièce jointe 246005

18/02/2017, 21h35
joe.levrai

Bonjour,

on voit bien que ton taux de tva est un nombre à 5 chiffres après virgules sur la copie écran de ton Userform
Forcément, quand tu calcules ta variable tva ... elle aura au minimum cette précision si le chiffre ne tombe pas juste

Tu dois formater ou arrondir ou tronquer ton chiffre avant de l'écrire dans la textbox ... c'est à dire sur ta ligne de code 7 .. ou le faire sur ta variable tva sur la ligne 3
18/02/2017, 21h57
Nicolas JACQUIN
merci de votre réponse mais j'ai pas compris, ce qui se passe c'est que ça copie sur la feuille et ensuite c'est retranscrit dans le textbox, formater ou arrondir je ne sait pas du tout comment faire. un peu perdu là , le textbox c'est une recopie de la feuille copie dessous
Code:

1 2 taxe = Worksheets("Ndev").Range("B4").Value tva = [SUM(O19:O20)] * taxe
Pièce jointe 246023
18/02/2017, 22h04
joe.levrai

Avant de savoir comment faire, il faut savoir quoi faire
Désires-tu gommer l'affichage 5 décimales des textbox, ou avoir des "vrais" chiffres à deux décimales dans ta feuille ?

Dans la majeure partie des cas, la fonction Format() peut s'avérer utile
http://jpcheck.developpez.com/tutori...rmat-dans-vba/
18/02/2017, 22h10
Nicolas JACQUIN

en faite je sais pas trop, le format de ma feuille est en format nombre avec 2 décimal, les textbox c'est pas un problème
avec ça

Code:

t1.Value = Format(t1.Value, "#,##0.00")

mais au final il faut que sur ma feuille excel ce soit à 2 décimals
mon taux de tva est calculé par rapport à la cellulle b4 Pièce jointe 246029 donc les textbox n'ont rien à voir,et la plage de cellule est reprise directement sur la feuille aussi
18/02/2017, 22h39
joe.levrai

Il faut agir sur le premier transfert de la valeur calculée pour neutraliser de facto les effets de cascades.

Si c'est bien la ligne 7 de ton tout premier code, va voir l'aide :f1: au sujet de Application.WorksheetFunction.Round pour arrondir ça

Code:

[SUM(O19:O20)] + tva

oui j'ai essayé autrement et même problème, le problème est là

Code:

[SUM(O19:O20)]

mais je c'est pas plus, merci

il y a des formules dans la plage de cellule, le problème ne viendrait pas de là ??

il y a du mieux mais ça arrondi 71.5 au lieu de 71.05 comme modèle plus haut, une autre idée ???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub o1_Click()
taxe = Worksheets("Ndev").Range("B4").Value
tvaa = (Round(Application.WorksheetFunction.Sum(Range("O19:O20")))) * taxe
Rep = MsgBox("Souhaitez-vous créer un sous-total pour la ligne ?", vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation")
         If Rep = vbYes Then
    Call Ajout_ligne
Worksheets("Ndev").Range("G20").Value = "Sous-total :" & " " & (Round(Application.WorksheetFunction.Sum(Range("O19:O20")))) + tvaa & " " & "€ TTC"
        Range("G20").Select
        With Selection
        .HorizontalAlignment = xlRight
        End With
    l2.Visible = True
    l2 = Range("G20")
        Else: Rep = vbNo
Exit Sub
End If
End Sub

18/02/2017, 23h24
joe.levrai

inclue ta variable tvaa dans le round sinon tu vas forcément conserver tes 5 décimales
18/02/2017, 23h32
Nicolas JACQUIN

en fait avec le code que j'ai juste au dessus, il ne reste plus qu'une décimale et ça a arrondi au demi soit 71.5 au lieu de 71.05

Pièce jointe 246044
18/02/2017, 23h37
joe.levrai

Je n'avais pas vu le deuxième problème en effet
tu n'as pas indiqué dans ta fonction Round le nombre de décimales à retenir
18/02/2017, 23h39
Nicolas JACQUIN

c'est à dire ?? désolé j'essai, j'essai mais pas facile
19/02/2017, 00h39
Nicolas JACQUIN

Code:

Application.WorksheetFunction.Round(Application.WorksheetFunction.Sum(Range("O19:O20")), 2)

avec ça marche