A voir également:
- Help! Je suis dans le fromage pour le formatage de nombres
- Vba compter le nombre de caractère dans une chaine - Forum Visual Basic
- Fonction qui permet de compter le nombre d'occurrence d'un caractère particulier - Forum Visual Basic 6
- Compter le nombre d'occurence d'un caractere en min ou maj - Forum Visual Basic 6
- Compter le nombre d'occurence dans une chaine de caractères - Forum VB.NET
- Php compter le nombre de caractere - Forum PHP
4 réponses
Bonjour,
L' argument doit être une chaine.
MonNombre = CStr(Me.TextBox1)
Me.TextBox1= format(MonNombre, "#,##0.00")
Jean
L' argument doit être une chaine.
MonNombre = CStr(Me.TextBox1)
Me.TextBox1= format(MonNombre, "#,##0.00")
Jean
Bonjour et merci de m'aider mais ça ne marche pas.
Je récupère 1500,2 et non 1 500,20.
Peut être faudrait-il transformer auparavant le format à la française prédéfini sous Access (ou windows)("# ##0,00") en format à l'américaine ("#,##0.00") que reconnait seulement VBA. Mais je ne sais pas le faire.
A +
Je récupère 1500,2 et non 1 500,20.
Peut être faudrait-il transformer auparavant le format à la française prédéfini sous Access (ou windows)("# ##0,00") en format à l'américaine ("#,##0.00") que reconnait seulement VBA. Mais je ne sais pas le faire.
A +
Bonjour,
Je ne comprends pas, j'ai essayé la même syntaxe sur Access 2000 et Access 97 et elle fonctionne !!!
Il n'y a pas besoin de modifier desparametres standard de windows. Pour info tu peux les trouver dans le panneau de configuration via l'icone "Parametres régionnaux"
J'ai placé la procédure sur clic d'un bouton et sur l'évènement "Sur sortie" du controle.
Voici la procédure :
1) Procédure sur clic d'un bouton de commande renommé B_OK
Private Sub B_OK_Click()
MonNombre = CStr(Me.NouvFormat)
Me.NouvFormat = format(MonNombre, "#,##0.00")
End Sub
2) Procédure sur sortie du controle "NouvFormat"
Private Sub NouvFormat_Exit(Cancel As Integer)
MonNombre = CStr(Me.NouvFormat)
Me.NouvFormat = format(MonNombre, "#,##0.00")
End Sub
Je ne comprends pas, j'ai essayé la même syntaxe sur Access 2000 et Access 97 et elle fonctionne !!!
Il n'y a pas besoin de modifier desparametres standard de windows. Pour info tu peux les trouver dans le panneau de configuration via l'icone "Parametres régionnaux"
J'ai placé la procédure sur clic d'un bouton et sur l'évènement "Sur sortie" du controle.
Voici la procédure :
1) Procédure sur clic d'un bouton de commande renommé B_OK
Private Sub B_OK_Click()
MonNombre = CStr(Me.NouvFormat)
Me.NouvFormat = format(MonNombre, "#,##0.00")
End Sub
2) Procédure sur sortie du controle "NouvFormat"
Private Sub NouvFormat_Exit(Cancel As Integer)
MonNombre = CStr(Me.NouvFormat)
Me.NouvFormat = format(MonNombre, "#,##0.00")
End Sub