Bonjour à tous...
Je tiens à vous remercier en avance pour votre aide.
J'essaie d'enregistrer le résultat de ce calcul dans un tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub cbxRabaisSoins_Change()
Dim pourcentage As Double
If Me.cbxRabaisSoins.Value = "" Then pourcentage = 0 Else pourcentage = Me.cbxRabaisSoins.Value / 100
'Me.lblvaleurPourcentage = pourcentage
Me.lblPrixSoins = CCur(Me.lblAffichePrixSoin) - (CCur(Me.lblAffichePrixSoin) * pourcentage)
 
End Sub
Enrégistrement dans le tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Article").Range("N" & DL) = CCur(Me.lblPrixSoins.Caption)
La cellule du tableau au format "Monétaire"
Mon problème:
L'enregistrement se fait dans le tableau, mais je reçois le message : "erreur d'exécution 13, Incompatibilité de type"
je ne vois pas d’où peut venir le problème.
J'ai aussi essayé ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim pourcentage As Variant
If Me.cbxRabaisSoins.Value = "" Then pourcentage = 0 Else pourcentage = Me.cbxRabaisSoins.Value / 100
'Me.lblvaleurPourcentage = pourcentage
Me.lblPrixSoins = CCur(Me.lblAffichePrixSoin.Caption) - (CCur(Me.lblAffichePrixSoin.Caption) * pourcentage)
et j'ai toujours le même message, malgré que le tableau soit rempli.