Format de cellules - remplissage par textbox

Version imprimable

05/04/2016, 15h38
Tchebichef

Format de cellules - remplissage par textbox

Bonjour à tous,
Je développe un formulaire de saisie de données sur Excel.
J'alimente une feuille Excel à partir de données saisies dans des textbox.
Et je rencontre un problème de format de cellule.
Mon code d'alimentation de la feuille est :

Code:

Range("H" & nbl1) = UserForm1.TextBox8.Value

La colonne H est en format monétaire, 2 chiffres après la virgule.
Lorsque je saisie une valeur entière, 500 par exemple, pas de soucis, la feuille s'alimente et la cellule contient 500,00€
Par contre lorsque je saisie une valeur décimale, 500,50 par exemple, problème, la feuille s'alimente mais la cellule affiche 500,50 aligné à gauche en précisant "nombre formé sous forme de texte".
J'ai essayé ce code :

Code:

Range("H" & nbl1) = Format(UserForm1.TextBox8.Value, "# ##0,00€")

mais sans succès.
Merci pour vos idées !
Bonne journée
05/04/2016, 15h45
Philippe PONS

Oui, c'est normal, le TextBox renvoi une donnée de type String.
Si ta cellule est formatée en numérique, ça le fait pas.
De même la fonction Format renvoi un String.
Essai plutôt:

Code:

Range("H" & nbl1) = CCur(UserForm1.TextBox8.Value)

Là tu convertis en Currency, qui est un numéric!
Cordialement,

Bonjour,
une solution,

Code:

1
2
3
4
Private Sub nomdetatextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)'penses à remettre le nom de ton textbox
separateur
If Chr(KeyAscii) = "." Or Chr(KeyAscii) = "," Then KeyAscii = Asc(sepdec)
End Sub

et dans un module

Code:

1
2
3
Private Sub separateur()
sepdec = Application.International(xlDecimalSeparator)
End Sub

Edit : pas vu ta réponse, Philippe

Merci Philippe, ça fonctionne parfaitement.
Casefayere, merci également même si je n'ai pas testé ta solution.
Par ailleurs, je contrôle la saisie de ma textbox par ce code :
Code:

1 2 3 4 If KeyAscii = 46 Then KeyAscii = 44 If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Or TextBox8.SelStart > 0 And Chr(KeyAscii) = "-" _ Or InStr(TextBox8.Value, ",") <> 0 And Chr(KeyAscii) = "," _ Or TextBox8.SelStart = 0 And Chr(KeyAscii) = "," Then KeyAscii = 0: Beep
Bonne journée !