Discussion :

[bosk1000]

bonjour a tous

je bloque sur le moyen d'obtenir un chiffre a virgule dans une box d'un formulaire

voici le code que j'ai mis

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub UserForm_Initialize()
Dim totalvalue As Variant
totalvalue = Round(Range("h65536").End(xlUp).Value, 2)
totalbox.Value = totalvalue
np.Value = Round(Range("h65536").End(xlUp).Value, 2)
especes.Value = 0
chqkdo.Value = 0
par.Value = 0
cheques.Value = 0
End Sub
 
 
Private Sub cheques_Change()
On Error Resume Next
np.Value = Val(totalbox) - Val(especes) - Val(chqkdo) - Val(par) - Val(cheques)
End Sub
Private Sub chqkdo_Change()
On Error Resume Next
np.Value = Val(totalbox) - Val(especes) - Val(chqkdo) - Val(par) - Val(cheques)
End Sub
Private Sub especes_Change()
On Error Resume Next
np.Value = Val(totalbox) - Val(especes) - Val(chqkdo) - Val(par) - Val(cheques)
End Sub
Private Sub par_Change()
On Error Resume Next
np.Value = Val(totalbox) - Val(especes) - Val(chqkdo) - Val(par) - Val(cheques)
End Sub

su la box np, j'obtien un chiffre sans virgule

en fais je sais que le probleme provient de la série :
np.Value = Val(totalbox) - Val(especes) - Val(chqkdo) - Val(par) - Val(cheques)

car si je suprime toutes ces opérations, le montant dans la box est conforme
par exemple sans toutes ces opération, si le chiffres de totalvalue est 180.60, alors dans la box np, il apparait correctement à 180.60

si je laisse les opérations j'obtient 180.60 pour la box totalvalue, mais pour la box np, elle indique 180

résultat, le solde qui est calculé dans la box np se trouve faussé de 0.60

[Invité]

Bonjour,

Vous avez essayé :

Code :

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

np.Value = Format(Val(totalbox) - Val(especes) - Val(chqkdo) - Val(par) - Val(cheques), "# ##0.00")

[bosk1000]

merci pour ton aide

ton code force le montant a avoir 2 chiffre après la virgule

mais etrangement il est de valeur 180.00

mais j'ai trouvé la source du probleme

il viens de cette partie de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Initialize()
Dim totalvalue As Variant
totalvalue = Round(Range("h65536").End(xlUp).Value, 2)
totalbox.Value = totalvalue
np.Value = Round(Range("h65536").End(xlUp).Value, 2)
especes.Value = 0
chqkdo.Value = 0
par.Value = 0
cheques.Value = 0
End Sub

en fait précisement
especes.Value = 0
chqkdo.Value = 0
par.Value = 0
cheques.Value = 0

en les suprime, le probleme disparait
comme c'est 0 ne sont pas obligatoire
je peux les suprimer, il ne servait que pour l'esthetique du formulaire
mais malgré tout
c'est bizare que la formulation d'une box en "0" fausse à l'ouverture du formulaire la somme d'une formule dans une combobox

[Invité]

Bonjour,

Personnellement, même en laissant :

Code :

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

1
2
3
4
especes.Value = 0
chqkdo.Value = 0
par.Value = 0
cheques.Value = 0

j'ai bien le résultat pour np.value avec 2 décimales.
Mais selon la valeur affectée au départ avec :

Code :

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

np.Value = Round(Range("h65536").End(xlUp).Value, 2)

le résultat peut être faux (si la valeur dans la cellule n'est pas un entier et avec la virgule comme séparateur décimal).

Quel est le séparateur décimal défini en ce qui vous concerne ?
Avez-vous vérifié votre résultat avec différentes valeurs (avec ou sans décimales affectées à np.value) ?

[bosk1000]

la valeur obtenue dans totalvalue est le resultat d'une opération
simpliste

Code :

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

1
2
3
 
 ActiveCell.FormulaR1C1 = "=(RC[-3]+RC[-2])*1.196"
    Selection.NumberFormat = "#,##0.00"

totalvalue ne fait que reprendre la valeur de cette opération

np lui est obtenue tout d'abord par la meme souce que totalvalue
mais aussi par une série de Private Sub box_Change() qui a chaque changement dans la valeur d'une des box, vienne modifier le montant final de np

donc avec des "0" au demarage du formulaire, le montant de np est faussé, alors quand les retirant je n'ai aucun probleme de cohérence sur les centimes

avec votre code, j'avait bien 2 décimales, mais c'était 2 zero, je n'obtenait pas la valeur réelle

peux etre falait il mettre la serie de box au format "0.00" au lieu de 0