bonjour mes amis
après un longue recherche avec Oncle Google
j'arrive pas a trouver une solution a ce problème
comme il est affiche sur la photo
lorsque je rentre une valeur avec virgule (comme prix)
sur le Flexgrid s'affiche normal
mais dans le total
il arrondi la valeur a 15 est sa c'est méchant pour une Magasin
N.B/ j'ai un doute sur la valeur TOTAL car il est afficher 15,45 et pas 15.45
ah avant d'oublie voila mon code:
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47 Private Sub Ajouter_Click() codebarre.SetFocus If codebarre= "" Then MsgBox "Veuillez un CODE-BARRE avant de continuer.", vbInformation, "Erreur" codebarre.SetFocus Else Dim c As Integer Dim L As Integer If T_Quachete.Text = 0 Or T_Quachete = "" Then MsgBox "Veuillez entrer la quantité d'article à vendu.", vbInformation, "Information" T_Quachete.SetFocus End If End If If codebarre.Text <> "" And T_Quachete.Text <> 0 And T_Quachete.Text <> "" Then 'C = Flex.Cols L = Flex.Rows - 1 Flex.TextMatrix(L, 0) = 1 Flex.TextMatrix(L, 1) = codebarre.Text Flex.TextMatrix(L, 2) = designation.Text Flex.TextMatrix(L, 3) = prixunitaire.Text Flex.TextMatrix(L, 4) = T_Quachete.Text Flex.TextMatrix(L, 5) = ((Val(prixunitaire))) * ((CSng(T_Quachete.Text))) Flex.Rows = Flex.Rows + 1 designation.Text = "" prixunitaire.Text = "" T_Quachete.Text = "" End If codebarre.Text = "" T_Quachete.Text = 1 For i = 1 To Flex.Rows - 1 cel = Val(Flex.TextMatrix(i, 5)) s = Val(s) + (cel) Next i T_TTC.Text = s End Sub
merci pour vos reponses
Partager