Discussion :

[CODYCO]

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 :

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

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 :

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

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 !!??

[jfontaine]

Bonjour,

En utilisant l’évènement LostFocus

Code :

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

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

[rvtoulon]

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 :

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

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

[CODYCO]

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