qui peut me debeuger

[angoul]

Bonjour, j'ai presque fini sur ma caisse, il me reste juste 3 beug a resoudre

sj'ai mis le fichier zip a dispo

quand je saisie deux fois le meme article mais a un prix differents a la place de creer 2 lignes distinct, il me fait un beug.
Else
cTotal = cTotal - CCur(LstTicket.List(wIdxTicket, 8))
LstTicket.List(wIdxTicket, 4) = LstTicket.List(wIdxTicket, 4) + 1 'Quantité
LstTicket.List(wIdxTicket, 5) = LstTicket.List(wIdxTicket, 4) * LstTicket.List(wIdxTicket, 3)
' remplissage ticket
WrbCaisse.Worksheets("Tickets").Cells(wIdxTicket + 2, 5) = LstTicket.List(wIdxTicket, 3)
WrbCaisse.Worksheets("Tickets").Cells(wIdxTicket + 2, 6) = LstTicket.List(wIdxTicket, 4)
WrbCaisse.Worksheets("Tickets").Cells(iNbrArt + 2, 1) = TextDate
End If

pour mon deuxieme probleme j'ai creer un bouton total qui copie ma selection
mais entre chaque ligne sur ma feuille excel et me creer des ligne vides et c'est pas top.

Private Sub BtnSave_Click()
WrbCaisse.Worksheets("recap vente").Cells(iNbrArt + 2, 1) = txtclient 'numero client
WrbCaisse.Worksheets("recap vente").Cells(iNbrArt + 2, 2) = TextDate 'date
WrbCaisse.Worksheets("recap vente").Cells(iNbrArt + 2, 3) = lblpayement.Caption 'mode payement
WrbCaisse.Worksheets("recap vente").Cells(iNbrArt + 2, 4) = cTotal 'total caisse
End Sub

si quelqu'un pourrait me creer un bouton pour supprimer dans mon userform tous mes articles saisie, sa serait super.

merci d'avance

merci d'avance de votre aide

 

[Compte Supprimé 979]

Re : qui peut me debeuger

Bonjour Angoul,

quand je saisie deux fois le meme article mais a un prix differents a la place de creer 2 lignes distinct, il me fait un beug.

Logique, si l'article est déjà présent, tu renvoi "-1" à la variable wIdxTicket
D'où l'erreur

pour mon deuxieme probleme j'ai creer un bouton total qui copie ma selection
mais entre chaque ligne sur ma feuille excel et me creer des ligne vides et c'est pas top.

Logique, tu inscris les nouvelles valeurs sur la ligne : iNbrArt + 2
Donc selon le nombre d'article que tu as dans ton USF, tu as + ou - de ligne blanche

Bouton supprimer ajouté

Voili, voilà 😉

PS : quand tu dis

Bonjour, j'ai presque fini sur ma caisse, il me reste juste 3 beug a resoudre

A la base, ce n'est pas ton code de fichier caisse !?

 

[angoul]

Re : qui peut me debeuger

merci de ton aide c'est super sympa

cordialement

 

[Compte Supprimé 979]

Re : qui peut me debeuger

Salut Angoul,

Petit bug dans le fichier envoyé 😱 lors de la suppression d'un article

Il faut modifier l'indice de colonne de la ListBox, 5 au lieu de 4

Private Sub BnSupprimer_Click()
  Dim wIdxTicket As Integer
  wIdxTicket = Me.LstTicket.ListIndex
  If wIdxTicket >= 0 Then
    cTotal = cTotal - CCur(LstTicket.List(wIdxTicket, [B][COLOR=blue]5[/COLOR][/B]))
    Me.LstTicket.RemoveItem wIdxTicket
    Me.LblTotal.Caption = "Total : " & CStr(cTotal)
  End If
End Sub

A+

 

[angoul]

Re : qui peut me debeuger

merci pour tous sa marche super

 

[angoul]

Re : qui peut me debeuger

merci de regarder a mon nouveau fichier
et si possible de me debeuger quand j'ajoute un 2eme articles, ainsi que quand j'ajoute 2 fois le meme produit sur une deuxieme ligne
Cijoint.fr - Service gratuit de dépôt de fichiers
cordialement