Bonjour,
je cherchais un code pour pouvoir separer, les nombres entrés dans un textbox, par centaines et j'ai eu le code suivant :
PrivateSub Text1_KeyPress(KeyAscii AsInteger)
Dim filtre AsString, toto AsString
If KeyAscii = 8ThenExitSub
toto = Chr(KeyAscii)
KeyAscii = 0
IfNot IsNumeric(toto)ThenExitSub
filtre = "# "
For i = 1To6
   filtre = filtre & String(3, "#") & " "
Next
Text1.Text = Trim(Format(Text1.Text & toto, filtre))
Text1.SelStart = Len(Text1.Text)
EndSub
le probleme maintenant est que lorsque je veux inserer le nombre 5 000 000 saisie dans le champ du textbox, dans ma base de donnée j'ai l'erreur suivante :
Erreur d'exécution '-2147217900(80040e14)':
Erreur de syntaxe (opérateur absent) dans l'expression '5 000 000'.
Pourquoi cela et comment y remedier ?
Merci d'avance.

salut,

plus simple :


Option Explicit

Private Sub Text1_LostFocus()
    Text1.Text = Format(Text1.Text, "###,##0")
End Sub

~ Mortalino ~ Colorisation automatique

à toi d'adapter si décimale
@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

mal lu :

dans ma base de donnée j'ai l'erreur suivante :

quel est ton code ?
Transforme ta variable String en Long, et entoure la des quotes (') dans ta requête

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

j'aime pas trop que l'on force un Format...

passer par FormatNumber et FormatDateTime est une bonne habitude

Comment faire pour que lorsque j'utilise Format() je puisse aussi avoir des décimales, parce que par exemple si je tape :
Text1.Text = Format(Text1.Text, "### ### ###"), il n'est pas possible de saisir un nombre décimale ou si je tape Text1.Text = Format(Text1.Text, "### ###.###"), là si je tape un chiffre il va directement à la virgule exemple 1236----> 1,236 Comment faire donc pour remedier à ça