XL 2019 Problème de somme en vba

[Electronull]

Bonjour à tous,

J'ai un petit problème de somme dans une procédure VBA
dans une listbox, j'ajoute des articles, bon de réduction, bon cadeau,...
Dans une textbox, j'affiche le total au fur et à mesure des ajouts.
Tout fonctionne tant que les montants sont positifs
Si j'ai un montant négatif dans le total et que je veux enlever l'article avec un montant négatif, j'ai une erreur 'incompatibilité de type'

Voici la formule que j'utilise

    Me.Txt_total = CDbl(Me.Txt_total) - (CDbl(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex)))

Comment feriez-vous vos calculs.

Merci

 

[cathodique]

Bonjour à tous,

J'ai un petit problème de somme dans une procédure VBA
dans une listbox, j'ajoute des articles, bon de réduction, bon cadeau,...
Dans une textbox, j'affiche le total au fur et à mesure des ajouts.
Tout fonctionne tant que les montants sont positifs
Si j'ai un montant négatif dans le total et que je veux enlever l'article avec un montant négatif, j'ai une erreur 'incompatibilité de type'

Voici la formule que j'utilise

    Me.Txt_total = CDbl(Me.Txt_total) - (CDbl(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex)))

Comment feriez-vous vos calculs.

Merci

Bonjour,

Un petit fichier représentatif, Stp.

 

[Electronull]

Salut,

Bon, ça fonctionne, j'ai fait une condition si les deux montants sont négatifs,

Merci A+

 

[cathodique]

Salut,

Bon, ça fonctionne, j'ai fait une condition si les deux montants sont négatifs,

Merci A+

Content que tu aies trouvé tout seul.
Cependant, il ne faut pas oublié que tu es sur un forum d'entraide.
D'autres personnes consulteront ta discussion, n'oublie pas de partager ta solution.

 

[Electronull]

Voici la procédure

Private Sub Cmd_Supprimer_Article_Click()
    
    If CDbl(Me.Txt_total) < 0 And (CDbl(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex))) < 0 Then
        Me.Txt_total = CDbl(Me.Txt_total) - (CDbl(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex)))
        Debug.Print Me.Txt_total
    Else
        Me.Txt_total = CDbl(Me.Txt_total) - (CDbl(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex)))
    End If
    
    Me.Txt_total = Format(Me.Txt_total, "0.00 €")
    ListBox_Article_Achete.RemoveItem (ListBox_Article_Achete.ListIndex)
    
    Me.ComboBox_Produit.ListIndex = -1
    Me.TextBox_Qte = "1"
    Me.TextBox_Prix_Unit = ""
    Me.TextBox_Prix_Unit = ""
    Me.TextBox_Compteur.Value = Me.TextBox_Compteur.Value - 1

End Sub

 

[cathodique]

Voici la procédure

Private Sub Cmd_Supprimer_Article_Click()
   
    If CDbl(Me.Txt_total) < 0 And (CDbl(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex))) < 0 Then
        Me.Txt_total = CDbl(Me.Txt_total) - (CDbl(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex)))
        Debug.Print Me.Txt_total
    Else
        Me.Txt_total = CDbl(Me.Txt_total) - (CDbl(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex)))
    End If
   
    Me.Txt_total = Format(Me.Txt_total, "0.00 €")
    ListBox_Article_Achete.RemoveItem (ListBox_Article_Achete.ListIndex)
   
    Me.ComboBox_Produit.ListIndex = -1
    Me.TextBox_Qte = "1"
    Me.TextBox_Prix_Unit = ""
    Me.TextBox_Prix_Unit = ""
    Me.TextBox_Compteur.Value = Me.TextBox_Compteur.Value - 1

End Sub

Bonsoir,

Merci pour le retour. Mais je t'avoue que je suis un peu perplexe en regardant ton code.
Exécuter la même ligne de code dans les 2 cas (positif et négatif).
Sans fichier, je suis incapable de t'en dire plus.
Mais plus que tu dis que ça fonctionne. Bonne continuité pour la suite de ton projet.

 

[job75]

Bonjour Electronull, cathodique,

Perso je n'utilise jamais CDbl sur des contrôles car il y a bug si le texte est vide.

J'utilise Val après avoir remplacé la virgule par le point :

    Txt_total = Val(Replace(Txt_total, ",", ".")) - Val(Replace(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex), ",", "."))

A+

 

[Electronull]

Bonjour Electronull, cathodique,

Perso je n'utilise jamais CDbl sur des contrôles car il y a bug si le texte est vide.

J'utilise Val après avoir remplacé la virgule par le point :

    Txt_total = Val(Replace(Txt_total, ",", ".")) - Val(Replace(ListBox_Article_Achete.Column(5, ListBox_Article_Achete.ListIndex), ",", "."))

A+

Salut,
Merci pour ta réponse, je vais essayer cette formule pour voir ce que cela donne.

A+