Manque données dans Listview

Question

bonjour


j'ai un soucis un peu génant
je rentre un nombre dans le textbox et avec la touche "entrer",je valide et sa va dans la listview
j'ai bien les données dans les colonnes 1,2,3,4 mais pas dans la 5 et la 6 
je ne comprends pas
voila le code 


Private Sub Txt_Quantité_matières_KeyPress(KeyAscii As Integer)
On Error GoTo err


If KeyAscii = 13 Then


 


texte = (Cbox_MP_Matieres.List(, 0))
 Set itmX = ListView2.ListItems.Add(, , texte)
        itmX.Bold = True
        itmX.ForeColor = &HFF0000
        itmX.SubItems(1) = Trim(Txt_Quantité_matières)
        itmX.SubItems(2) = Txt_Prix_matières.Text
        itmX.SubItems(3) = TVA_Courante '& "%" '"5.5%"
        itmX.SubItems(4) = Val(Txt_Quantité_matières) * Val(Txt_Prix_matières.Text) & " €"
        'temp2 = Val((Val(Txt_Quantité_matières) * Val(Txt_Prix_matières.Text) / 1.055)) * 0.055
         temp2 = Val((Val(Txt_Quantité_matières) * Val(Txt_Prix_matières) / (Val(TVA_Courante / 100) + 1)) * Val(TVA_Courante / 100))
        itmX.SubItems(5) = Format((Val(Txt_Quantité_matières) * Val(Txt_Prix_matières.Text) - temp2), "0.00") & " €"
        itmX.SubItems(6) = Val(Txt_Quantité_matières) * Val(Txt_Prix_matières.Text) & " €"
        
        Set itmX = ListView4.ListItems.Add(, , texte)
        itmX.Bold = True
        itmX.ForeColor = &HFF0000
        itmX.SubItems(1) = Trim(Txt_Quantité_matières)
        itmX.SubItems(2) = Txt_Prix_matières.Text
        itmX.SubItems(3) = Val(Txt_Quantité_matières) * Val(Txt_Prix_matières.Text) & " €"
        Cmd_sauv.Enabled = True
        MAJ_Calcul_matie
        Cbox_MP_Matieres = ""
        Txt_Quantité_matières = ""
        Txt_Prix_matières = ""
End IfIf InStr("0123456789.()-" & Chr(8), Chr(KeyAscii)) 0 Then KeyAscii 0If KeyAscii 46 And InStr(Txt_Quantité_matières.Text, ".") > 0 Then KeyAscii 0
Exit Sub


err:
End Sub
merci
petchy

cs_Jack · Answer

Salut
Peut-être parce que tu regardes ListView4 (6 SubItems renseignés) et oas ListView2 (3 SubItems)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Oups, l'inverse

cs_petchy · Answer

salut


en fait le probleme ne vient pas de la ListView4 mais plus de la ListView2
meme quand j'enleve le code de la ListView4,ça ne fonctionne pas.
c'est pour ça que je ne comprends pas.
petchy

cs_Jack · Answer

Re
Seul remarque : le symbole Euro
Peut-être que c'est lui le fautif : essaye de l'enlever temporairement, comme c'est un caractère spécial et régional ...
Si c'est lui la cause :
Essaye de remettre le "€" et de changer la Police de ta ListView
Essaye de remplacer le caractère par son code : Chr$(128)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

PS
Essaye temporirement de remplacer tes calculs par des textes quelconques pour voir si cela vient du calcul ou de leur format

cs_petchy · Answer

bonjour
j'ai trouver le coupable
c'est à cause du sigle  % qui se mettait dans la colonne  itmX.SubItems(3) = TVA_Courante 
voila,maintennant c'est nickel
merci
bonne journée 
petchy

Manque données dans Listview

6 réponses

Votre réponse

Discussions similaires