Discussion :

[Tchebichef]

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 :

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

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 :

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

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

mais sans succès.
Merci pour vos idées !
Bonne journée

[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 :

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

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

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

[casefayere]

Bonjour,
une solution,

Code :

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

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 :

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

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

Edit : pas vu ta réponse, Philippe

[Tchebichef]

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 :

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

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 !