Probleme textbox

Bonsoir.
J'ai testé pour vous : c'est l'erreur que j'obtiens en rentrant une valeur
non numérique dans le textbox.
Cordialement.
Daniel
"dario" <dario.pelos@free.fr> a écrit dans le message de news:
ej1n6l88GHA.3760@TK2MSFTNGP02.phx.gbl...

Bonjour
Dans un userform , je veut qu'un nombre entré dans un Textbox soit
considéré comme un nombre et nom du texte
Ma formule bloque sur la troisième ligne(erreur13)

Private Sub TextSomme1_Change()
resultat =val (Textsomme1.value)
Textsomme1 . Value = cdbl (TextSomme1.Value)

*Bonjour dario*,

Bonjour
Dans un userform , je veut qu'un nombre entré dans un Textbox soit considéré
comme un nombre et nom du texte
Ma formule bloque sur la troisième ligne(erreur13)

Private Sub TextSomme1_Change()
resultat =val (Textsomme1.value)
Textsomme1 . Value = cdbl (TextSomme1.Value)

Tu aura beau faire, un textbox est et restera un textbox quelque soit
son contenu. Tu peux y mettre des carottes et des poireaux, tu n'aura
jamais de soupe ;-)
Par contre, dès que tu devras utiliser le contenu, tu pourra
transformer en ce que tu veux

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bonjour,

C'est pas ça que tu veux faire plutôt ? :

Private Sub TextSomme1_Change()
resultat = Val(TextSomme1.Text)
TextSomme1.Text = CDbl(resultat)
End Sub

Le CDbl, c'est sur "résultat" que tu veux le faire ?
NB - Ca marche avec Text ou Value

Garette avait soumis l'idée :

Bonjour,

C'est pas ça que tu veux faire plutôt ? :

Private Sub TextSomme1_Change()
resultat = Val(TextSomme1.Text)
TextSomme1.Text = CDbl(resultat)
End Sub

Le CDbl, c'est sur "résultat" que tu veux le faire ?
NB - Ca marche avec Text ou Value

C'est peut être ce qu'il veux faire, mais ça sert à rien vu qu'un
taxtbox ne reçoit *QUE* du texte

--
JLuc