logiciel caisse

[Mojus]

Bonjour,

Je tiens un gite / auberge et pour me simplifier la comptabilité, j'ai réalisé un petit logiciel de caisse sur Macro Excel. Ce logiciel permet de comptabiliser note par note, récupérer les données et les traiter en comptabilité, il permet également d'enregistrer l'historique des commandes par jour.

Seule la touche "Effacer la dernière ligne" ne fonctionne pas. Si jamais vous avez une idée pour résoudre ce problème je suis preneur.

En espérant que ce travail puisse vous être intéressant.
Je reste à votre disposition pour tout complément d'information,

Cordialement,

Arthur Postel

 

[Paf]

Bonsoir,

à tester, modifier la sub Private Sub CommandButton59_Click() comme ceci:

Private Sub CommandButton59_Click()
 With ListBox1
 Sheets("Temp").Rows(.ListCount + 1).Delete Shift:=xlUp
 .RemoveItem (.ListCount - 1)
 End With
End Sub
End Sub

A+

 

[job75]

Bonsoir Mojus, bienvenue sur XLD, salut Paf,

Bravo pour votre projet, il est pratiquement terminé et me paraît bien au point.

Pour le bouton "Effacer dernière ligne" :

Private Sub CommandButton59_Click() 'Effacer dernière ligne
With Sheets("Temp").[A1].CurrentRegion
    If .Rows.Count = 1 Then Exit Sub
    .Rows(.Rows.Count).Delete xlUp
    ListBox1.RemoveItem ListBox1.ListCount - 1
End With
End Sub

A+

 

[Chris24]

Bonjour Mojus, Paf, job75, le forum

Belle réalisation.
Histoire de mettre mon grain de sel, ne pas oublier de déduire le montant de la ligne supprimée du montant total du TextBox4

Private Sub CommandButton59_Click() 'Effacer dernière ligne
With Sheets("Temp").[A1].CurrentRegion
    If .Rows.Count = 1 Then Exit Sub
    TTC = .Range("g" & .Rows.Count).Value
    .Rows(.Rows.Count).Delete xlUp
    ListBox1.RemoveItem ListBox1.ListCount - 1
End With
TextBox4 = TextBox4 - TTC
End Sub

Cdt

 

[Mojus]

Bonjour à tous,
Un grand merci pour votre aide.

Je vous souhaite une belle journée,
Cordialement,

Arthur

 

[ChTi160]

Bonjour Arthur
Bonjour le Fil ,le Forum
je me suis intéressé à ton fichier et j'y ai ajouté quelque Fonctionnalités.
je n'ai travaillé pour l'instant que sur le Userform .
je ne me suis pas occupé du transfert des données enfin tu regardes et tu me dis ce que tu en penses (pas obligé d'adopter lol)
j'ai introduit des modules de classe pour les parties Produit et Numérique
j'ai limité à 999 (peut être modifié) le Nombre qu'il est possible commander.
j'ai ajouté une touche pour supprimer le dernier Chiffre saisit.
j'ai ajouté un bouton "VALIDER" pour valider le Choix du produit à ajouter a la ListBox.
j'ai fait en sorte que si deux produits identiques sont entrés dans la Liste ils soient totalisés pour ne faire qu'une Ligne .
j'ai aussi fait en sorte que le Total se remette a jour lors de la suppression de la dernière ligne de la ListBox
Enfin tu regardes Lol
EDIT : Fichier modifié , suite à la non mise à Jour du TextBox total lors du premier Choix.
Dans le Userform j'ai supprimé le Label Info que j'avais oublié (plus nécessaire).
Bonne Journée
jean marie

 

[Hasco]

Bonjour,

Beau boulot!

@ChTi160 : je me suis permis de rajouter les quelques lignes suivantes dans votre module de classe classe_PRODUITS pour avoir un visuel du bouton survolé:

Private Sub m_CmdB_PROD_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim cond As Boolean: cond = X > 5 And X < m_CmdB_PROD.Width - 5 And Y > 5 And Y < m_CmdB_PROD.Height - 5
m_CmdB_PROD.Font.Underline = cond
End Sub

Edit:
et tant qu'à faire, variation de couleur au survol.

Bonne journée

 

[ChTi160]

Re
Pas de problème Lol
bonne journée
EDIT : J'ai changé le fichier #6
jean marie

 

[ChTi160]

Re
Questions pour Arthur
Comment utilises tu cette appli .
Version tactile ？
Utilises tu plusieurs Userform ?
à quoi correspondent et servent les différentes feuilles?
à Quoi Correspondent "les deux Dates" ainsi que le "Code Journal "de la feuille "Histo" par exemple.
Merci par avance
jean marie

 

[ChTi160]

Re
un fichier modifié
Bonne fin de Soirée
jean marie

 

[ratebhn]

bonjour
lorsque je choisi le mode de paiement et je clique sur Sauvegarder commande rien ne se passe. Comment cela fonctionne?

 

[ChTi160]

Bonjour ratebhn
Binjour le Fil ,le Forum
Normal,
je n y ai pas travaille .
je sais pas comment doit fonctionner ce bouton n y ou il suvegarde.
j attendais des nouvelles de Mojus
Bonne journee
jean marie

 

[EnzoVince]

Bonjour,

Je tiens une buvette et cherche une application Excel qui me permette d'effectuer les encaissements.

J'ai lu vos discussions et il semble que ce que vous avez développé conviendrait parfaitement!

Est-il possible d'avoir le dernier fichier, j'ai téléchargé celui du 23 avril mais il semble qu'il ne fonctionne pas complètement. Par exemple, la validation d'une commande ne semble pas se faire.

Merci
Enzo

 

[EnzoVince]

bonjour
lorsque je choisi le mode de paiement et je clique sur Sauvegarder commande rien ne se passe. Comment cela fonctionne?

Bonjour,

J'ai constaté la même chose, je ne sais comment valider une commande. As-tu trouvé une solution?

merci
Enzo

 

[ChTi160]

Bonjour Enzo
Bonjour le Fil, le Forum
Effectivement （la sauvegarde n a pas etait traitee）je regarde cela des que possible.
jean marie