Discussion :

[macjs]

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.

[Menhir]

L'enregistrement se fait dans le tableau, mais je reçois le message : "erreur d'exécution 13, Incompatibilité de type"

Quelle ligne de code est désignée par le débugage lorsque ce message d'erreur apparait ?

[macjs]

Voici la ligne de code désignée par le débogage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.lblPrixSoins = CCur(Me.lblAffichePrixSoin) - (CCur(Me.lblAffichePrixSoin) * pourcentage)

[Menhir]

Histoire de localiser plus précisément le problème, coupon-le en morceaux.
Juste avant cette ligne, mets le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Me.lblPrixSoins = CCur(Me.lblAffichePrixSoin)
Me.lblPrixSoins =  CCur(Me.lblAffichePrixSoin)
Me.lblPrixSoins = pourcentage

[macjs]

La ligne de code désignée par le débogage est celle ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.lblPrixSoins = CCur(Me.lblAffichePrixSoin)

avec le même message d'erreur.

[Phiphi41]

Bonjour

Qu'y a t il comme données dans ton étiquettes ?

[Menhir]

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.lblPrixSoins = Format(Me.lblAffichePrixSoin, "# ##0.00 €")

[Patrice740]

Bonjour,

Essaies comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
Private Sub cbxRabaisSoins_Change()
Dim pourcentage As Double
  If Me.cbxRabaisSoins.Value = "" Then pourcentage = 0 Else pourcentage = Val(Me.cbxRabaisSoins.Value) / 100
  Me.lblPrixSoins = Format(Val(Me.lblAffichePrixSoin.Caption) * (1 - pourcentage), "# ##0.00 €")
End Sub

[macjs]

Je vous remercie infiniment pour votre aide précieuse à tous. Mais j'aimerais comprendre pourquoi ça fonctionne .

[Patrice740]

Bonjour,

Je vous remercie infiniment pour votre aide précieuse à tous. Mais j'aimerais comprendre pourquoi ça fonctionne .

1) Pour éviter tout problème, lorsqu'on travaille avec des objets (combobox, label, ...) il convient de toujours préciser la propriété qu'on veut utiliser (.Valeur, .Caption, ...)
2) le combox est un objet dont la valeur est un texte (pas un nombre), il en est de même pour Caption d'un label, pour obtenir un nombre, il convient donc de les convertir, la fonction Val() permet de façon simple de convertir en nombre de type Double, un texte dont les premiers caractère sont "convertibles" en nombre, par exemple le texte 30,58 € en nombre 30,58.
Le type double offre une précision suffisante pour la plupart des cas (15 chiffres significatifs). Pour des calculs plus précis, avec des grands chiffres, on pourrait utiliser le type Currency (15 chiffres avant la virgule et 4 après) via CCur mais si on cherche la précision, il vaut mieux utiliser le type Decimal (28 chiffres significatifs).

[macjs]

Bonjour,


1) Pour éviter tout problème, lorsqu'on travaille avec des objets (combobox, label, ...) il convient de toujours préciser la propriété qu'on veut utiliser (.Valeur, .Caption, ...)
2) le combox est un objet dont la valeur est un texte (pas un nombre), il en est de même pour Caption d'un label, pour obtenir un nombre, il convient donc de les convertir, la fonction Val() permet de façon simple de convertir en nombre de type Double, un texte dont les premiers caractère sont "convertibles" en nombre, par exemple le texte 30,58 € en nombre 30,58.
Le type double offre une précision suffisante pour la plupart des cas (15 chiffres significatifs). Pour des calculs plus précis, avec des grands chiffres, on pourrait utiliser le type Currency (15 chiffres avant la virgule et 4 après) via CCur mais si on cherche la précision, il vaut mieux utiliser le type Decimal (28 chiffres significatifs).

Encore merci pour les explications. ça m'a été d'une grande aide. Encore merci à tous ceux qui ont participé à cette discussion.