Additionner click commandbutton vers textbox

Le 12/08/2020 à 19:00

Re,

J'avais pas pensé.

J'ai rajouté un textbox somme (celle-ci fais textbox1 * textbox3 pour avoir le montant total)

Dans le textboxt 4 (la formule marche bien)

Ou je bloque (c'est quand je clic plusieurs fois, sa marche pas)

Normal car le clic va dans la listbox, faudrait que le clic marche aussi dans le textbox1 pour que la formule marche dans le textbox4

Pourrais-tu m'éclairer

Merci

9xflox-additionner-avec-bouton-4.xlsm (24.91 Ko)

Le 12/08/2020 à 19:56

Bonjour,

J'ai pris de l'avance pour le Total ...

Aussi, le bouton zéro ne fonctionnait pas ...

ric

10xflox-additionner-avec-bouton-4-2.xlsm (29.63 Ko)

Le 13/08/2020 à 00:37

Bonsoir,

Je m'attendais à ça, ça aurais été ma prochaine étape.

Je t'en remercie

Je viens de le tester et c'est super.

Je remarque deux chose:

1) Au niveau de total, parfois il beuk quand je clic plusieurs fois sur plusieur commandbutton

2) Si j'encode le nombre avec le pavé numérique ça marche bien mais si je reclic sur un commandbutton, il garde en mémoire ce que j'ai encodé avec le pavé (je dois effacer manuellement ce que j'ai encodé avant)

Cependant, je te remercie énormément du temps que tu me consacre à mon projet

Mille merci

Le 13/08/2020 à 20:16

Bonjour Ric,

Je viens de lire mon dernier commentaire, je ne voulais pas dire (je m'attendais à ça) mais (je ne m'attendais pas à ça) mais je suppose que tu avais compris

J'ai trouvé le soucis pour le pavé numérique (j'ai simplement écris dans le code des commandbutton: textbox1.value = "") et la plus de soucis

Me reste plus que trouvé à résoudre pour le textbox TOTAL (je m'aperçois qu'il ne ce mets pas à jour parfois directement)

En te remerciant encore mille fois pour ton temps et ta patience

Le 13/08/2020 à 20:30

Bonjour,

Dans le dernier fichier que je t'ai soumis ... le Total se compte bien ...

Si tu as une démarche que je peux reproduire où le total n'est pas bon ou ne s'inscrit pas ... renvoie-moi le fichier ( car, tu y as apporté des modifications ), je vais voir ce que je peux faire ...

ric

Le 13/08/2020 à 20:38

Re,

Je crois que j'ai réussi à trouver la solution pour les deux problèmes.

Pourrais-tu jeter un coup d’œil.

Pour le total, je l'ai enlevé de ton code et l'ai place dans un textboxt

ça m'a l'aire de fonctionner

En te remerciant

10xflox-additionner-avec-bouton-4-2-5.xlsm (26.14 Ko)

Le 13/08/2020 à 20:53

Bonjour,

Tout semble en ordre ...

Maintenant ... tu as commis une erreur ... tu as inscrit 2 produits de trop ... une case à cocher pour soustraire ... tu indiques la quantité de trop et cliques sur le bouton du produit ... la case à cocher de soustraction est cochée ... le nombre de produits doit se soustraire ... pour demain ...

ric

Le 13/08/2020 à 23:44

Bonsoir,

Merci Ric

Vais essayer de trouver l'erreur que tu me dis.

J'ai remarqué aussi que si le PU est par excemple 1.5 et la quantité est 2 (la formule marche bien mais arrondi vers le haut)

ça serais bien que la réponse soit correct donc 2 * 1.5 = 3 est pas 4

En te remerciant

Le 14/08/2020 à 10:05

Bonjour,

Ce n'est pas une erreur que j'ai mentionné ... c'est l'ajout d'un code permettant de corriger une situation...

Tu inscris des produits ...

Il peut arriver une inscription erronée ...

Comment est-ce que tu ferais pour corriger ??

Donc, il faudrait ajouter la possibilité de soustraire des produits ... C'est cela que je voulais dire ...

ric

Le 15/08/2020 à 00:47

Bonjour Ric,

Pour ta question, voila ce que j'ai quasi fini de faire.

J'ai fais un commandbutton (ajout article) lors de son activation, il m'ouvre un userform pour son nouvel ajout.

Celui-ci avant l'ajout vérifie si l'article n'ai pas en double (si en double msgbox me le dis) sinon ajout

J'ai fais aussi un bouton supprimer article si plus besoin.

Je dois encore peaufiner mais sa devrais le faire

J'espère avoir répondu à ta question.

Bien entendu quand j'ai fini, je peux te montrer.

Cependant, j'essaye depuis ton dernier code d'essayer de corriger mon soucis de calcul avec le total somme.

Je bloc et n'arrive pas. Surement un soucis avec la formule mais deviens fou.

J'explique le soucis:

Quand j'encode le PU d'un article avec des cents (exemple 1,50)

le total de la somme est arrondi supérieur

J'aimerais qu'il me mette le résultat correct et non arrondi.

Exemple

1 coca 1.50 dois me mettre en somme 1.50 mais ça me marque 2

En te remerciant

Le 15/08/2020 à 11:11

Bonjour,

Byte et Integer sont des chiffres entiers.

Pour compter avec des décimales, il faut utiliser Currency ou Double ...

S'il y a des "Cint( ...... " > il faudra les remplacer par des "CCur( ... " ou des "CDbl( ... " ....

Le souci que tu cherches à corriger provient probablement de là ...

Mais, il ne faut pas tout convertir ... ce qui a rapport aux quantités de produits > l'on reste avec des entiers >

Ce qui a rapport aux prix avec centimes (décimales) > il faut s'assurer que les variables aient le bon format > et il faut convertir le contenu des TextBox au format adéquat >

ric

Le 15/08/2020 à 19:36

Bonjour Ric,

Merci

Vais essayer avec tes informations

car la je deviens fou lol

Le 15/08/2020 à 19:55

Re Ric,

Grâce à tes informations, je crois avoir trouver

Pourrais-tu, jeter un coup d’œil

En te remerciant

7xflox-additionner-avec-bouton-4-2-6.xlsm (30.59 Ko)

Le 15/08/2020 à 22:57

Bonjour,

Supposition > tu as 2 cocas > tu veux les supprimer > dans textbox1 > tu écris par erreur -5 au lieu de - 2 > l'écriture se fait en négatif ainsi que le montant > au lieu de supprimer la ligne coco ...

Tu as 2 cocas > tu veux les supprimer > dans textbox1 > tu écris -2 > l'écriture se faisait à 0 coca > au lieu de supprimer la ligne coca ...

Le code ci-bas corrige ces situations ... ( voir '' << ajout )

À tester zau cas zoù qu'il subsisterait des erreurs ... (

Sub CompteEtEcrit()
Dim Total As Double
Dim X As Byte

    Sheets("PU").Select     ' utile seulement pour le dépannage
    Range("A1").Select      ' utile seulement pour le dépannage

    If Me.ListBox1.ListCount > 0 Then   ' s'il y a déjà au moins un item dans la listbox
        For X = 0 To Me.ListBox1.ListCount - 1              ' boucle sur les items
            If Me.ListBox1.Column(1, X) = LeProduit Then    ' si l'item de la boucle = LeProduit
                Me.ListBox1.Column(0, X) = CInt(Me.ListBox1.Column(0, X)) + CInt(Me.TextBox1)   ' addition (colonne 1 du listbox)
                Me.ListBox1.Column(3, X) = CDbl(Me.ListBox1.Column(0, X)) * CDbl(Me.ListBox1.Column(2, X))
                Me.TextBox4 = CDbl(Me.ListBox1.Column(0, X)) * CDbl(Me.ListBox1.Column(2, X))
                If Me.ListBox1.Column(0, X) < 1 Then Me.ListBox1.RemoveItem (X)    '' << ajout
                Me.ListBox1.ListIndex = -1  ' désélectionne item du listbox
                Exit Sub                ' sort de la macro
            End If
        Next X

        If Me.TextBox1 < 1 Or Me.TextBox1 = "-" Then Exit Sub    '' << ajout
        Me.ListBox1.AddItem     ' s'il y a des items dans la listbox, mais pas le produit ajouté
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Me.TextBox1.Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = LeProduit
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Me.TextBox3.Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = CDbl(Me.ListBox1.Column(0, X)) * CDbl(Me.ListBox1.Column(2, X))
        Me.TextBox4 = CDbl(Me.ListBox1.Column(0, X)) * CDbl(Me.ListBox1.Column(2, X))
    Else
        If Me.TextBox1 < 1 Or Me.TextBox1 = "-" Then Exit Sub    '' << ajout
        Me.ListBox1.AddItem     ' s'il y a pas d'item dans la listbox
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Me.TextBox1.Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = LeProduit
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Me.TextBox3.Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = CDbl(Me.ListBox1.Column(0, X)) * CDbl(Me.ListBox1.Column(2, X))
        Me.TextBox4 = CDbl(Me.ListBox1.Column(0, X)) * CDbl(Me.ListBox1.Column(2, X))
    End If

    Me.ListBox1.ListIndex = -1  ' désélectionne item du listbox
End Sub

ric

Le 16/08/2020 à 03:59

Bonjour Ric,

C'est super ton raisonnement

Je l'ai mis en pratique et je l'ai un peu modifier car je ne voulais pas écrire le -

Je voulais toujours travailler avec mes commandbutton

J'ai rajouter un bouton modifier et quand tu as fini de modifier tu rappuie sur le même bouton

Pourrais-tu, jeter un coup d’œil et me dire ce que tu en pense

Je te remercie

9xflox-additionner-avec-bouton-7.xlsm (34.87 Ko)

Le 16/08/2020 à 13:53

Bonjour,

En mode "Modification" > si l'on clique sur un bouton "produit" sans qu'il y ait de valeur indiquée dans textbox1 > il survient un message d'erreur ...

Il faudra donc modifier le code des 3 boutons "produit" ...

'' de ...
    TextBox1.Value = ""
Else
    TextBox1.Value = -TextBox1.Value

    'Inscrit Article
    TextBox2.Value = CommandButton2.Caption

'' pour ...
    TextBox1.Value = ""
Else
    If TextBox1.Value <> "" Then TextBox1.Value = -TextBox1.Value

    'Inscrit Article
    TextBox2.Value = CommandButton2.Caption

ric

Le 16/08/2020 à 18:59

Bonjour Ric,

Merci de ton raisonnement

Je vais essayer de le changer mais la j'arrive pas

Suis pas un pro comme toi en vba

Pourtant tu explique super bien mais j'ai un peu de mal pour placer le code

En te remerciant

Le 16/08/2020 à 19:31

Bonjour,

Pourtant , il n'y a qu'une ligne à changer ... le reste est pour t'aider à te retrouver ...

Avant : TextBox1.Value = -TextBox1.Value