Calcul avec controls

[G'Claire]

Salut le forum

N'arrivant pas faire de sieste après une longue nuit a faire danser les gens et les geannes,lol, j'essaye de régler le problème suivant :

1) J'ai un Combobox qui me sert a établir un fixer un prix en francs et de ce combobox un textbox se rempli seul pour avoir un prix en €

Ce que j'aimerai c'est d'avoir aprés le calcul que deux chiffres aprés la virgule


2) Par contre je n'arrive pas a faire la soustraction suivante avec en par exemple :

TextBoxSoldeFrancs = ComboBoxPrixFrancs - TextBoxAccompteFrancs

Mais il faut que je remplisse en premier l'accompte (TextBoxAccompteFrancs) pour que cela fonctionne.


J'ai essayer pour ces deux cas le code suivant :

Private Sub ComboBoxPrixFrancs_Change()

TextBoxPrixEuros = Val(ComboBoxPrixFrancs) / 6.55957

TextBoxSoldeFrancs = Val(ComboBoxPrixFrancs) - Val(TextBoxAccompteFrancs)

End Sub



Y'a t'il d'autres soulution?

Merci pour votre aide, G'Claire

 

[G'Claire]

Hervé, le forum rerererererere,

Voila ce que j'ai fait :

Private Sub TextBoxAccompteFrancs_Change()

If TextBoxAccompteFrancs.Text = "" Then TextBoxAccompteFrancs = 0

If TextBoxAccompteFrancs = "0" Then
LabelAccompteFrancs.ForeColor = &H80000008
LabelAccompteEuros.ForeColor = &H80000008
Else
LabelAccompteFrancs.ForeColor = &HFF0000
LabelAccompteEuros.ForeColor = &HFF0000
End If

TextBoxAccompteEuros = Val(TextBoxAccompteFrancs) / 6.55957
TextBoxSoldeFrancs = Val(ComboBoxPrixFrancs) - Val(TextBoxAccompteFrancs)

End Sub

Et

Private Sub TextBoxAccompteEuros_Change()

TextBoxAccompteEuros = Format(TextBoxAccompteEuros, "##,##0.00")
TextBoxSoldeEuros = Val (TextBoxPrixEuros) - Val (TextBoxAccompteEuros)

End Sub

Et a priori cela fonctionne, es-cela ce dont tu me parlé?

Merci, G'Claire

 

[Hervé]

G'Claire, Le forum

1) Je te confirme que je n'ai pas de bug du tout...

2)oui c'est de cela que je parlais. En faisant ainsi, je pense que tu ajoutes bien des valeurs ensemble et non des valeurs et des textes
(Types incompatibles comme tu as pu le constater... ;-))

bon courage pour la suite,
@+,Hervé