Macro Ticket de Caisse qui viendrait s'ajouter à une autre macro
Bonjour, je sollicite votre aide pour la création d'une macro pour faire un ticket de caisse que je viendrai rajouter sur un document qui a déja une macro. Voici que je suis arrivée à faire mais qui malheureusement ne fonctionne pas. Merci par avance pour votre aide.
Mon tableau
Option Explicit
Private Sub btnAjouter_Click()
Dim ws As Worksheet
Dim derniereLigne As Long
Dim article As String
Dim qte As Double
Dim prix As Double
Set ws = ThisWorkbook.Sheets("Ticket")
article = Me.txtArticle.Value
qte = Val(Me.txtQte.Value)
prix = Val(Me.txtPrix.Value)
reduction = Val(Me.txtPrix.Value)
total = Val(Me.txtPrix.Value)
If article = "" Or qte <= 0 Or prix <= 0 Then
MsgBox "Veuillez remplir tous les champs"
Exit Sub
End If
derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
ws.Cells(derniereLigne, 1).Value = article
ws.Cells(derniereLigne, 2).Value = qte
ws.Cells(derniereLigne, 3).Value = prix
ws.Cells(derniereLigne, 3).Value = reduction
Call CalculerTotal
Me.txtArticle.Value = ""
Me.txtQte.Value = ""
Me.txtPrix.Value = ""
Me.txtReduction.Value = ""
Me.txtArticle.SetFocus
End Sub
Private Sub btnQuitter_Click()
Unload Me
End Sub
Bonjour
La macro que tu mets fait référence à un userform?
Je n'ai vu ni userform ni macro sur le fichier joint
ci joint ma solution sans userform (formulaire)
Si tu préfères un userform il suffit de demander...
A+ François
@François, pour info
Quelle info Eric? OK, j'ai vu l'info. Moi je ne fais que répondre à KASSOU ... et comme toi, si il y a un autre post, je ne répondrai plus à celui ci...
ci joint avec formulaire
A+ François
Bonjour François, et merci de ta réponse ; quand je clique sur "ajouter" ou "nouveau" il ne se passe rien
ça fonctionne très bien, mais je ne veux pas de formulaire car en fait, je voudrais que le script du ticket s'ajoute à une macro déjà existante (j'ai un tableau des ventes) merci
Chez moi une ligne s'ajoute (si E7 n'est pas vide) quand je clic sur ajouter
le tableau s'efface (si la cellule E7 n'est pas vide) quand je clic sur nouveau
Mais comme signalé au post précédent je ne répondrai plus à ce post...
A+ François
Pourquoi ? j'ai fait quelque chose de mal ?