Discussion :

[naty76]

Bonsoir,

Je rencontre un problème.

Sur l'évènement Change d'un Spin Button (qui représente mon nombre de personnes), je recalcule mon Prix TTC.
Je n'ai pas trouvé d'autres solutions que passer mon Prix TTC à 0 et de recalculer le Prix TTC.

Code :

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

1
2
3
4
5
Private Sub SpinNbPers_Change()
LblNbPers.caption="Nbre de pers " & SpinNbPers.value
TxtPrixTTC.value=0
TxtPrixTTC.value=TxtPrixHT.value*1.196*SpinNbPers.Value
End Sub

Au lancement du formulaire, j'ai une erreur 13 sur :

Code :

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

TxtPrixTTC.value=TxtPrixHT.value*1.196*SpinNbPers.Value

Je ne comprend pas pourquoi puisque je ne suis même pas dans l'évènement CHange... Ou alors il regarde tout le code avant de lancer le formulaire ?

Voyez-vous pourquoi j'ai ce message d'erreur car je cherche depuis un bout de temps mais je ne vois pas ?

Merci

NATY

[wilfried_42]

bonjour

erreur 13 --> incompatibilité de type

TxtPrixTTC.value=TxtPrixHT.value*1.196*SpinNbPers.Value
--Texte---------- Texte ------- Num ---- texte
si tu saisis des points decimaux

Code :

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

txtprixttc.value = format(val(txtprixht.value)*1.196 * val(spinnbpers.value),"#######0.00")

si tu saisis des virgules en separateur de decimal

Code :

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

txtprixttc.value = format(cdbl(txtprixht.value)*1.196 * cdbl(spinnbpers.value),"#######0.00")

[naty76]

Merci beaucoup pour cette réponse. Du coup, je ne comprend plus pourquoi je n'ai pas d'erreur pour cette ligne positionnée à un autre endroit:

Code :

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

1
2
TxtPrixTTC.value=TxtPrixHT.value*1.196         
  Texte        Texte           num

NATY

[naty76]

Finalement j'ai passer tout mes champs texte en numérique
Merci pour le coup de main

NATY