A l'aide

petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
- 22 déc. 2004 à 22:35
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
- 23 déc. 2004 à 20:38
Salut

J'essaye d'imprimer avec
format(nombre,"0000.000")
aucun probleme tout est bien aligner
mais le probleme c'est que
sa arrive comme sa
0001.250
0125.125
2121.444
0001.250
0000.905
et je voudrais qu'il n'y aie pas les zero
uniquement 1 quand c'est moins de 1€000
donc que sa arrive comme sa
1.250
125.125
2121.444
1.250
0.905
Si quelqu'un a une idee
Merci

7 réponses

Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
33
23 déc. 2004 à 00:59
Format(nombre, "###0.000")

FormatNumber(nombre, 3)

Daniel
0
petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
23 déc. 2004 à 07:44
Sa marche pas
il mes une erreur non definie
0
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
33
23 déc. 2004 à 10:25
je comprends pas si ça marche avec ça:
Format(nombre,"0000.000")
ça doit marcher avec ça:
Format(nombre,"###0.000")
ou avec ça:
Format$(nombre,"###0.000")

est-ce que c'est une erreur de compilation ou une erreur d'exécution ?

Daniel
0
petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
23 déc. 2004 à 18:49
Le probleme n'est pas la
sa marche c'est ok il enleve les 0 mais c'est pas aligne
c'est comme sa

1.123
10.123
100.123
0.123
je veux que ce soit aligner part rapport a la ,
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
33
23 déc. 2004 à 19:41
à moins de faire comme crenaud76 t'as dit en ajoutant des espaces devant ...
avec une police proportionnelle c'est nettement plus compliqué
je donne un exemple avec la Forme:

Me.Print "ABCDEF....";
s = "123,456"
x = Me.TextWidth(s)
Me.CurrentX = 2000 - x
Me.Print s

Me.Print "ABC.......";
s = "3,456"
x = Me.TextWidth(s)
Me.CurrentX = 2000 - x
Me.Print s

Me.Print "X.........";
s = "12345,456"
x = Me.TextWidth(s)
Me.CurrentX = 2000 - x
Me.Print s


change la police de la Forme et regarde le résultat ...

maintenant il faut adapter pour l'imprimante:
Printer.CurrentX au lieu de Me.Currentx
Printer.TextWidth au lieu de Me.TextWith
et la valeur 2000 à déterminer

aucune idée si ça va marcher ou pas ?

Daniel
0
petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
23 déc. 2004 à 20:31
prout = Mid(Form3.List3.List(a), 37, 8)
prout = Right$(String$(10, " ") & Format(prout, "# ##0.000"), 10)
Printer.CurrentY = 127 + b
Printer.CurrentX = 165
Printer.Print prout

Voici ce que je vient d'essayer et sa marche pas .
0
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
33
23 déc. 2004 à 20:38
zut = Mid$(Form3.List3.List(a), 37, 8)
zut = Right$(String$(10, " ") & Format(zut, "# ##0.000"), 10)
Printer.Print zut

ou

zut = Mid$(Form3.List3.List(a), 37, 8)
zut = Right$(String$(10, " ") & Format(zut, "# ##0.000"), 10)
x = Printer.TextWidth(zut)
Printer.CurrentX = 165 - x
Printer.Print zut

Daniel
0