Sujet Précédent Sujet Suivant

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

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

FormatNumber(nombre, 3)

Daniel
0
Réponse 2 / 7
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
Réponse 3 / 7
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
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
Réponse 4 / 7
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
Réponse 5 / 7
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
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
Réponse 6 / 7
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
Réponse 7 / 7
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
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
Rejoignez-nous