aide sur plantage

[angoul]

bonjour,
j'ai encore un petit probleme avec mon bouton "remise a zero"
j'ai saisie un code :
Private Sub btremisezero_Click()
Dim Msg, Style, Title, Response
Msg = " Avez vous sauvegarder!! CLIQUEZ OUI SINON CLIQUEZ NON !! "
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = " quitter "
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then
Unload Me
Sheets("tickets").Range("A2:I120").ClearContents
Else
FrmCaisse.LablCompteur.Caption = FrmCaisse.LablCompteur.Caption + 1
LstTicket.Clear
Textquant.Value = ""
Textrecu.Value = ""
LblTotal.Caption = ""
Lblrendre.Caption = ""
End If
End Sub

quand je saisie dans mon code sans les Lbl cela marche nickel
mais des que je rentre Lbl total ou lbl rendre cela plante mon aplication.
je pense avoir mis pourtant le bon code
quelqu'un peut t'il m'aider
merci d'avance

 

[PascalXLD]

Re : aide sur plantage

BOnjour

Je pense qu'il faut

FrmCaisse.LablCompteur.Caption = CDbl(FrmCaisse.LablCompteur.Caption) + 1

 

[angoul]

Re : aide sur plantage

merci de ton conseil, mais helas sa plante toujour
je commence a desesperer, avec mes problemes entre le compteur qui plante et ma touche supprimer un article qui fait planter aussi je craque.

Une petite suggestion, il serait peut etre sympa de creer un tchatch?
tu en pense quoi Pascal

 

[PascalXLD]

Re : aide sur plantage

RE

C'est bien cette ligne qui se surligne ??

C'est peut-être Val au lieu de CDbl dans ton cas

Sinon le chat existe déjà mais est très peu utilisé 🙄

 

[angoul]

Re : aide sur plantage

helas l'erreur n'apparait pas sur cette ligne, mais me renvoi a la ligne :
Private Sub txtprix_AfterUpdate()
Dim wRange As Range
Dim wIdxTicket As Integer
Dim iRow As Integer

'Pas d'article saisi non renseigné
'L'article doit exister
If Len(LTrim(Me.CbxArticle.Value)) = 0 Or Not ArticleExist(Me.CbxArticle.Value) Then
Exit Sub
End If

'Pas de prix
If Len(LTrim(Me.txtprix.Text)) = 0 Then
Exit Sub
End If

'Pas d'article saisi
If CDec(Me.txtprix.Text) = 0 Then
Exit Sub
End If

'Ajouter l'article a liste du ticket
Set wRange = WrbCaisse.Sheets("Article").Columns("A").Find(what:=Me.CbxArticle.Value)
iRow = wRange.Row
If Not wRange Is Nothing Then
wIdxTicket = FindTicket(Me.CbxArticle.Value)
If wIdxTicket < 0 Then
LstTicket.AddItem WrbCaisse.Worksheets("Article").Cells(iRow, 1), iNbrArt


merci de tes conseils

 

[PascalXLD]

Re : aide sur plantage

re

c'est quoi ton , iNbrArt??

c'est ça qui coince

 

[angoul]

Re : aide sur plantage

Pour etre honete avec toi, je ne sait pas, c'est pas moi qui a creer le code
c'etait un ami a moi, qui n'est plus la.
Moi j'essaye juste de le modifier.

merci