encore de l'aide sur un saisie

  • Initiateur de la discussion Initiateur de la discussion angoul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

angoul

XLDnaute Impliqué
(fermer) encore de l'aide sur un saisie

bonsoir,

je ferme se post car j'ai fait un autre post plus explicite, je pense et surtout avec un fichier ZIP.

voila dans mon tableau de saisie quand je tape le code article, il me renseigne plein de champs, et me laisse un champs pour rentrer le prix jusque la pas de probleme. Mais quand je tape 2 fois le meme code il les additionnes sur la meme ligne, meme si le prix des differents.
j'aimerai pouvoir qu'a la place de l'addition il me creer une ligne supplementaire ou je peut mettre le prix meme si l'article est le meme.
je met a dispo les lignes codes
"Ajouter l'article a liste du ticket
Set wRange = WrbCaisse.Sheets("Article").Columns("A").Find(what:=Me.TxtArticle.Text)
iRow = wRange.Row
If Not wRange Is Nothing Then
wIdxTicket = FindTicket(Me.TxtArticle.Text)
If wIdxTicket < 0 Then
LstTicket.AddItem WrbCaisse.Worksheets("Article").Cells(iRow, 1), iNbrArt 'Code article
LstTicket.List(iNbrArt, 1) = WrbCaisse.Worksheets("Article").Cells(iRow, 2) 'Description -woksheets = feuille
LstTicket.List(iNbrArt, 2) = WrbCaisse.Worksheets("Article").Cells(iRow, 5) 'TVA
LstTicket.List(iNbrArt, 3) = Val(Me.txtprix.Text) ' PRIX - cells(irow,2)=cellule, colonne et ligne
LstTicket.List(iNbrArt, 4) = 1 'Quantité
LstTicket.List(iNbrArt, 5) = LstTicket.List(iNbrArt, 4) * LstTicket.List(iNbrArt, 3)
cTotal = cTotal + CCur(LstTicket.List(iNbrArt, 5))
' remplissage ticket
WrbCaisse.Worksheets("Tickets").Cells(iNbrArt + 2, 2) = WrbCaisse.Worksheets("Article").Cells(iRow, 1)
WrbCaisse.Worksheets("Tickets").Cells(iNbrArt + 2, 3) = Val(Me.txtprix.Text)
WrbCaisse.Worksheets("Tickets").Cells(iNbrArt + 2, 4) = 1
WrbCaisse.Worksheets("Tickets").Cells(iNbrArt + 2, 5) = LstTicket.List(iNbrArt, 3) * LstTicket.List(iNbrArt, 2)
iNbrArt = iNbrArt + 1
WrbCaisse.Worksheets("Tickets").Cells(iNbrArt + 1, 1) = TextDate
Else
cTotal = cTotal - CCur(LstTicket.List(wIdxTicket, 5))
LstTicket.List(wIdxTicket, 4) = LstTicket.List(wIdxTicket, 4) + 1 'Quantité
LstTicket.List(wIdxTicket, 5) = LstTicket.List(wIdxTicket, 4) * LstTicket.List(wIdxTicket, 3)
cTotal = cTotal + CCur(LstTicket.List(wIdxTicket, 5))
' 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
"
merci d'avance
 
Dernière édition:
Re : encore de l'aide sur un saisie

Bonsoir,
Penses tu qu'un code sorti de son contexte puisse nous mener qq part
Alors, si tu joignais le formulaire qui va avec, le tout dans un fichier allégé, on y verrait sans doute plus clair pour pouvoir t'aider
A+
kjin
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour