Discussion :

[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 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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]

je te fais un copier-coller de la réponse à ton post de 9:44 sur un autre forum

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
bonjour
 
à essayer
 
Code:
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

[ouskel'n'or]

Bonjour,
Tu peux nous ré-expliquer ça tranquillement, point par point ? Où prends-tu "Si je fais 2*1.20 + 3*.1.50" dans ton exemple ? Que représente MTMETRO et qu'est-on censé trouver dedans ?
Déjà une indication : si tu mets
erreur = not isnumeric(MTMETRO)
permet de vérifier si MTMETRO est ou non un numérique
Ensuite, avec
if erreur then Cancel = True
Si erreur, le focus ne quittera pas le contrôle. Te restera à définir les autres erreurs possible.
erreur = erreur or Instr(MTMETRO, ",") <> 0
(où erreur est un boolean)
Jonne bournée et noyeuses fêtes de joël à toi aussi

[wilfried_42]

bonjour ouskel'n'or

d'apres ce que j'ai compris , gds35 saisi dans une textbox (MTMETRO) une formule de calcul or des erreurs de frappe provoquent une erreur d'évaluation, donc contrôler l'erreur de frappe et si erreur retour à la saisie.
si textbox vide on continue
si saisie ok, l'évaluation se fait et se place dans la textbox