Discussion :

[charifclub]

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

[ProgElecT]

Salut

Le plus simple, me semble t il, serait d’insérer une ligne entre la ligne 27 et 28 Flex.TextMatrix(L, 5) = Replace(Flex.TextMatrix(L, 5), ",", ".") pour forcer le formatage du séparateur décimal point (.)

[charifclub]

il marche 100/100



merci bcp mon frère
c très gentil