Calcul textbox avec validation enter

Bonjour

Je bloque sur une petite merde (comme souvent) j'ai un textbox dans lequel je rentre une valeur numérique, je souhaite qu'à la validation par "entrer" il me fasse le calcule de la valeur entrer dans le textbox par une autre, mais voila ca ne marche pas il me sort une valeur bizarre avec des lettres.

Code:

---

1 2 3 4

Private Sub V_Conso_Change() V_Conso = 2 * V_Conso 'alors que la valeur entrer est 1 End Sub

---

et ca ne marche pas non plus

Code:

---

1 2 3 4

Private Sub V_Conso_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then MsgBox V_Conso * 2 End Sub

---

Il me renvoi 1.98745E+87 !!??

Bonjour,

En utilisant l’évènement LostFocus

Code:

---

1 2 3

Private Sub V_Conso_LostFocus() V_Conso.Text = Val(V_Conso.Text) * 2 End Sub

---

bonjour,
pour info, en faisant un userform vite fait avec un textbox ton code me renvoie le bon résultat après validation par la touche "ENTRER":

Code:

---

1 2 3

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then MsgBox Me.TextBox1.Value * 2 End Sub

---

Merci de vos réponses j'ai finalement obté pour une version "Exit()"