IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Code VBA pour Gestion de caisse enregistreuse


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mai 2019
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Corrèze (Limousin)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Mai 2019
    Messages : 11
    Par défaut Code VBA pour Gestion de caisse enregistreuse
    Bonjour,

    Je désire réaliser une caisse enregistreuse où le clic sur un bouton permet d’incrémenter la listbox .
    _ Ex: je click sur le bouton du Coca, la listbox indique "Coca x1" et si je click à nouveau, elle affiche alors "Coca x2".

    Actuellement, je gère cela avec un PAD numérique.

    De plus, je n'arrive pas à faire fonctionner le bouton "Supprimer ligne".

    Auriez vous la solution svp?

    Voici le code avec le PAD numérique:

    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
    Private Sub CommandButton24_Click()
    TextBox1 = "Coca Cola"
     
    If TextBox1 = "" Or TextBox2 = "" Then
        MsgBox "Vous devez impérativement remplir la quantitée et l'article avant de valider", vbInformation
        Exit Sub
    End If
    dlf_bdd = Sheets("BDD").Range("a" & Rows.Count).End(xlUp).Row
    Set Table = Sheets("BDD").Range("b2:c" & dlf_bdd)
    With Sheets("Temp")
        dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1
        .Range("a" & dlf) = Date
        .Range("b" & dlf) = CDbl(TextBox2)
        .Range("c" & dlf) = TextBox1
        .Range("d" & dlf) = .Range("b" & dlf) * Application.WorksheetFunction.VLookup(.Range("c" & dlf), Table, 2, 0)
    End With
    ListBox1.AddItem (TextBox1 & " x " & TextBox2)
    TextBox1 = ""
    TextBox2 = ""
     
    With Sheets("Temp")
        dlf = .Range("a" & Rows.Count).End(xlUp).Row
        If dlf > 1 Then
            For i = 2 To dlf
                Total = Total + .Range("d" & i)
            Next i
        End If
    End With
    TextBox4 = Format(Total, "Currency")
    End Sub

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour

    Juste pour te signaler que tu trouveras du plus complet encore dans cette discussion :
    https://www.developpez.net/forums/d1...reateur-macro/
    Et le tout, sans que l'utilisateur n'ait à saisir quoi que ce soit (tout se fait par des clics).

Discussions similaires

  1. Un code VBA pour récupérer un type de donnée ?
    Par KEROZEN dans le forum VBA Access
    Réponses: 22
    Dernier message: 26/09/2019, 11h12
  2. [XL-2016] Avec un Userform, Ecrire un code VBA pour la gestion des Mots de Passe
    Par Max Ledoux dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 14/11/2017, 14h37
  3. [VBA-A] Code vba pour inclure un formulaire Acces
    Par MadSquirrel dans le forum VBA Access
    Réponses: 2
    Dernier message: 12/04/2006, 18h19
  4. Réponses: 3
    Dernier message: 06/09/2005, 10h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo