Discussion :

[bruce207]

Bonjour,
je voudrais savoir comment faire pour que les chiffres saisies dans un textbox se rangent par centaine exemple 1000000 donne 1 000 000
j'ai essayé avec Format() mais je ne connais pas bien la syntaxe.
Merci d'avance

[OhMonBato]

L'aide de VB est là pourtant.... mais bon :

Code :

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

Text1 = Format(100000, "0 000 000")

[ucfoutu]

Ben...

La syntaxe et les exemples que l'on trouve dans l'aide en ligne (sur ta machine) me paraissent clairs !

Code :

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

MsgBox Format("1000000", "# ### ###")

Bonjour ohmonbato,

ta syntaxe va également ajouter des zéros devant si nombre plus court ...

[bruce207]

Bonjour,
pour la syntaxe c'est correct, mais lorsque je l'applique à un textbox les chiffres s'ecrivent de la droite vers la gauche et le curseur lui va à droite. Comment remedier à ce probleme.
Merci déjà.

[SfJ5Rpw8]

comment l'applique-tu ...?

[ucfoutu]

oui..
et 2 autres questions :
1) dans quel évènement as-tu placé de code ,
2) quelle est la propriété Alignment de ta textbox ?

[bruce207]

Bonjour,
je l'utilise dans l'evenement change() comme suit :

Code :

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

1
2
3
Text1 change()
Text1 = Format(text1.text, "# ### ###")
end sub

[ucfoutu]

Je n'aime pas beaucoup que l'on utilise l'évènement Change ainsi ...

Mais puisque tu y tiens (et sous TA responsabilité... moi, je m'en lave les mains ...) :

Code :

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

1
2
3
4
Private Sub Text1_Change()
  Text1.text = Format(Text1.Text, "# ### ###")
  Text1.SelStart = Len(Text1.Text)
End Sub

[bruce207]

Que m'aurais-tu proposé ?

[ucfoutu]

Que m'aurais-tu proposé ?

Je ne peux te répondre sur ce point sans connaitre ton "affaire", ses tenants et ses aboutissants...
Expose-les et je te proposerai alors une méthode en connaissance de cause.

Ce sera vraisemblablement tout sauf l'évènement Change (du moins jamais ainsi ).

Chaque problème a une solution adéquate. Encore faut-il connaître le problème et son contexte.

[bruce207]

En fait je realise une aplication de gestion d'une cooperative et on a besoin d'entrée des valeurs monetaires dans les champs (textbox) concernés, donc pour permettrent aux utilisateurs de ne pas se tromper dans les unites des chiffres j'ai pensé à les separés par centaines dans les textbox concernés. Donc voila le probleme.

[ucfoutu]

Bon....

Tu ne parles jusqu'à présent que d'entiers...

Alors voilà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Text1_KeyPress(KeyAscii As Integer)
 Dim filtre As String, toto As String, I as integer
 If KeyAscii = 8 Then Exit Sub
  If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0: Exit Sub
  toto = Chr(KeyAscii)
  KeyAscii = 0
  filtre = "# "
  For i = 1 To 6
    filtre = filtre & String(3, "#") & " "
  Next
  Text1.Text = Trim(Format(Text1.Text & toto, filtre))
  Text1.SelStart = Len(Text1.Text)
End Sub

Edit :

Que tu peux écrire plus simplement ainsi, donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Text1_KeyPress(KeyAscii As Integer)
 Dim filtre As String, toto As String
 If KeyAscii = 8 Then Exit Sub
 toto = Chr(KeyAscii)
 KeyAscii = 0
 If Not IsNumeric(toto) Then Exit Sub
 filtre = "# "
 For i = 1 To 6
   filtre = filtre & String(3, "#") & " "
 Next
 Text1.Text = Trim(Format(Text1.Text & toto, filtre))
 Text1.SelStart = Len(Text1.Text)
End Sub

Et si tu traitais maintenant (maintenant que tu commences à voir le principe) également les décimales, hein ??

Je te laisse essayer seul d'abord...
Je n'interviendrai que si tu "baisses les bras", mais après m'avoir montré ce que tu auras tenté.
Bonne étude.

[bruce207]

Bonjour,
j'ai essayer le code il separe bien les milliers mais j'ai l'erreur suivante lorsque je veux remplir ma table qui porte sur le champ :
Erreur d'exécution '-2147217900(80040e14)':
Erreur de syntaxe (opérateur absent) dans l'expression '5 000 000'.
pourtant comme c'est numérique j'ai codé dans la requete sql insert into:

Code :

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

..." & text1.text & "...

pourquoi cette erreur et comment y remedier ?

[ucfoutu]

Bonjour,

Pas besoin de Replace pour faire "sauter" les espaces..

La fonction Val s'en charge seule.

Val("4 000 000") ==>> 4000000

[bruce207]

J'ai essayé le code suivant :

Code :

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

...Text1.Text = Trim(Format(Val(Text1.Text & toto), filtre))...

mais j'ai toujours la meme erreur. Comment dois je proceder ?

[zazaraignée]

J'ai testé avec l'événement Validate sans problèmes

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Text1_Validate(Cancel As Boolean)
    If IsNumeric(Text1.Text) Then
        Text1.Text = Format(Text1.Text, "### ##0.00# ###")
      Else
        Beep
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
        Cancel = True
    End If
End Sub

[bruce207]

Bonjour,
Eh bien je ne sais pas mais chez moi ça ne marche pas du tout. Mais je voudrais savoir 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

[ucfoutu]

ucfoutu avait écrit :

Bon....

Tu ne parles jusqu'à présent que d'entiers...

Alors voilà :

Code :

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

blabla

Et si tu traitais maintenant (maintenant que tu commences à voir le principe) également les décimales, hein ??

Je te laisse essayer seul d'abord...
Je n'interviendrai que si tu "baisses les bras", mais après m'avoir montré ce que tu auras tenté.
Bonne étude.

Montre-nous donc ce (le code) que tu as tenté !

[OhMonBato]

Je me demande s'il n'y a pas confusion entre "," et "." pour la séparation décimale ?
Dans ton exemple tu mets un point mais tu parles de virgule... Comment sont tes paramètres régionaux dans windows pour le séparateur décimal ? (Je n'ai jamais compris que Microsoft nous propose une virgule en France alors que nos claviers sont équipés d'un point sur le clavier numérique... à chaque fois je dois ajuster ce paramètre)

[bruce207]

Bonjour,
ce que j'ai en tete c'est de formater la partie entiere et la partie décimale le tout dans Format(). Mais le probleme c'est que je ne connais pas la fonction partie entiere ni partie décimale. Mon code donnerait peut ceci :

Code :

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

Text1.Text = Format(PartieEntiere(Text1.Text) & PartieDecimale(Text1.Text), "### ### ###")

En fait je ne sais meme pas si ça marche, mais c'est ce que j'essaraie