encore de l'aide sur un saisie

[angoul]

(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

 

[kjin]

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

 

[BERRACHED said]

Re : encore de l'aide sur un saisie

Salut,Angoum,Kjin

Kjin, même avec le Le Formulairec'est encore plus compliqué.

la solution au probléme demeure bien entendu sous condition d'une bonne éxplication.

Cordialement