Maudite erreur 13

[gds35]

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

 

[wilfried_42]

Re : Maudite erreur 13

bonjour

à essayer

Private Sub MTMETRO_exit(ByVal cancel As MSForms.ReturnBoolean)
'
' METRO
'
    If MTMETRO.Value = "" Then Exit Sub
    on error goto erreur
    MTMETRO.Value = Format(Evaluate(MTMETRO.Value), "# ##0.00 €")
    Range("G34") = CDbl(MTMETRO.Value)
    exit sub
erreur:
    on error goto 0
    msgbox "Une erreur dans la formule"
    cancel = true
End Sub

je t'ai répondu aussi ici : Sur ce Forum

 

[James007]

Re : Maudite erreur 13

Bonjour,

Wilfried a raison ... sa macro va fonctionner ...

Perso, je rajouterais, avant de traiter la textbox, le test ISNumeric(MTMETRO.Value) ...

A +

 

[gds35]

Re : Maudite erreur 13

MERCI mes AMIS , cela fonctionne super Bien , Passez d'excelente fêtes de fin d'année . Bon réveillon a tous , MERCI le FORUM de votre Aide des + Précieuse
Bon NOël BONNE ANNEE A tous
Cordialement GDS35