Discussion :

[pilounet54]

je valide la valeur positive

Code :

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

Range("i" & ligne).Value = TextBoxRecettes.Value

il faut svp faire comme si je retapai la somme merci j'ai essaye *0 pas bon et essaye*1
mais cela enleve les chiffres apres la virgule avez vous une idée ?

[mercatog]

Code :

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

Range("I" & ligne).Value = val(replace(TextBoxRecettes.Value,",","."))

[casefayere]

Bonsoir mercatog, pilounet54
Perso je pratique comme ça :

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) = "." Then KeyAscii = Asc(",")
End Sub

et pour la validation, entre autre :

Code :

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

Range("I" & ligne) = CCur(TextBox1)

Bonne soirée