Bonsoir à tous les membres,
je passe par ce message demander un petit coup de main
voici le code
Private Sub btnV_Click() 'validation entrée
Dim m As VbMsgBoxResult
If RechPdtTick(cmbPdt.Value) Then
m = MsgBox("Le produit " & cmbPdt.Value & " est déjà enregistré dans le compte" & vbCr & _
"Confirmez-vous cette nouvelle entrée?", vbQuestion + vbYesNo, "")
If m = vbNo Then Exit Sub
End If
PrepTicket cmbRf.Value, cmbPdt.Value, txtQ.Value, CSng(lbP.Caption)
totalG = totalG + CSng(txtTP.Value)
txtTG.Value = Format(totalG, "0.00")
lbNbA.Caption = Val(lbNbA.Caption) + 1
cmbPdt.Value = "": txtQ.Value = "": lbP.Caption = ""
EnableBtn False
End Sub
à la dixème ligne, excel souligne Format(totalG, "0.00") et met erreur de compilation projet ou bibliothèque introuvable