gds35
XLDnaute Impliqué
Bonjour , mes AMIS du forum,
Malgré l'aide précieuse de tous je n'arrive pas au résultat escompté . Voila d'abord mon code :
Private Sub MTMETRO_exit(ByVal cancel As MSForms.ReturnBoolean)
'
' METRO
'
If MTMETRO.Value = "" Then
Exit Sub
Else
MTMETRO.Value = Format(Evaluate(MTMETRO.Value), "# ##0.00 €")
Range("G34") = CDbl(MTMETRO.Value)
End If
End Sub
Si je fais 2*1.20 + 3*.1.50 j'ai bien le résultat ds la textBox 6.90 mais si par malheur je saisie h*1.20 + 3*g j'ai l'erreur 13 et je plante , ce que je voudrais c'est remettre a zero la textbox, obliger une nelle saisie et ne pas passer a zone suivante , j'ai tester on Error , puis set focus ..... ne m'en sort pas.
Auriez vous une idée ????
Merci de votre aide Bon Dimanche et bonnes fêtes de in d'Année.
Cordialement GDS35
Malgré l'aide précieuse de tous je n'arrive pas au résultat escompté . Voila d'abord mon code :
Private Sub MTMETRO_exit(ByVal cancel As MSForms.ReturnBoolean)
'
' METRO
'
If MTMETRO.Value = "" Then
Exit Sub
Else
MTMETRO.Value = Format(Evaluate(MTMETRO.Value), "# ##0.00 €")
Range("G34") = CDbl(MTMETRO.Value)
End If
End Sub
Si je fais 2*1.20 + 3*.1.50 j'ai bien le résultat ds la textBox 6.90 mais si par malheur je saisie h*1.20 + 3*g j'ai l'erreur 13 et je plante , ce que je voudrais c'est remettre a zero la textbox, obliger une nelle saisie et ne pas passer a zone suivante , j'ai tester on Error , puis set focus ..... ne m'en sort pas.
Auriez vous une idée ????
Merci de votre aide Bon Dimanche et bonnes fêtes de in d'Année.
Cordialement GDS35