Discussion :

[zejo63]

Bonjour voila mon probleme j'affiche dans une champs text un nombre provenant d'une base access . Je le formate pour qu'elle prenne un format monétaire

Code :

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

1
2
3
 
    Const Num1 = "##,###.00 €"
    ef_loyer.text = Format(ef_loyer.text, Num1)

77124,12 -> 77 124,12 €

Ensuite pour recuperer ma zone pour mettre a jour ma base de donné je fais

Code :

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

1
2
3
4
5
 
       loyer = ef_loyer.text
       loyer = Replace(loyer," ", "")
       loyer= Replace(loyer, "€", "")
       loyer = Replace(loyer, ",", ".")

1 er ligne mouvemente la zone
2 eme ligne supprimer les espace
3 eme ligne supprime le signe €
4 eme remplace la virgule par le point

Mon code ne marche pas tres bien car il ne supprime pas les espace

77 124,12 € -> 77 124.12


Si vous avez une methode meilleur pour formater un chiffre et ensuite pour le recupere sans le format ca serais cool de m'aider, car pour l'instant ca ne marche pas bien

A bientot

[Bigyork]

Pour supprimer les espace utilise la commande Trim sur une chaine de caractère plutôt que le replace

Par contre si ton champ de base de données est de type Réél il faut que ta variable d'enregistrement soit aussi un Réél !

[zejo63]

mon champs de la base est un reel double à deux decimale .
la fonction TRIM ne marche pas

Code :

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

1
2
 
loyer = Trim(loyer)

j'ai tjs un espace

[AlainTech]

Il me semble qu'on travaille à l'envers.

Pourquoi ne pas stocker dans la base en numérique et ne convertir en format monétaire que pour l'affichage?

En tout cas, c'est ce que je ferais...

Edit --> Désolé, je viens de relire l'énoncé. D'où question: Pourquoi mettre en monénaire une zone de saisie?

[zejo63]

C bien ca, dans ma base c un reel double, et quand je l'affiche je le transforme en format monétaire. Ensuite pour le recuperer il faut que je le remette ne reel double .

pourquoi tu me conseil de mettre a kel format dans ma base

[AlainTech]

J'ai édité le message précédent.
Encore désolé d'avoir répondu sans avoir bien lu.

[zejo63]

Je la met en monétaire car c plus facil a lire avec un espace entre les centaines et le sigle €uros .
Je sais pas si vous faite ca dans vos application mais moi je prefere

[AlainTech]

Dans mon cas, jamais pour une saisie. Uniquement pour l'affichage.
Imagine le boulot de celui qui va devoir saisir...
Devra-t-il taper le blanc ou pas?
S'il sélectionne tout pour remplacer, l'utilisateur va se demander s'il doit, lui-même, formater ou pas.

--> Source de confusion.

[zejo63]

oui oui c pour l'affichage que je veux faire ca uniquement
Je me suis mal fait entendre désolé.
la seul chose que je voudrais savoir c comment enlever le blanc entre les centaines car le trim ca ne marche pas et le replace(loyer, " " ,"") non plus

[Bigyork]

A priori on s'égare ton Trim tu doit le faire sur ta zone de saisie et non pas sur ton réél.

Ensuite si tu laisses ta reconversion de la saisie de l'utilisateur comme ça avec des trim et des replace ce n'est pas un problème car peu importe ce que l'utilisateur saisira, les replace remplace uniquement si le caractère est trouvé donc tes valeurs seront toujour bien formatée même si l'utilisateur saisi 14005.25.

Mais en général comme le dis AlainTech il vaut mieux ne pas saisir au moins la devise monétaire mais plutôt la faire apparaitre dans un autre contrôle à part !

Code :

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

loyer = Trim(ef_loyer.text)

[zejo63]

ok merci pour toutes vos explications je vais refléchir et je pense faire comme vous avez dis .
Merci en tout cas pour tout

[ThierryAIM]

Je me permets une précision

Trim n'a JAMAIS supprimé les espaces à l'intérieur d'une chaine, seulement les espaces à droite et à gauche

[AlainTech]

Je le pensais bien aussi mais je n'ai pas pris le temps de tester (mon bain coulait...)

[ThierryAIM]

J'ai pas testé non plus, c'est le B.A.BA des traitements de chaines

Trim = LTrim + RTrim

Pour suppimer tous les espaces dans une chaine :

Code :

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

1
2
3
While Instr(1, chaine, " ") <> 0
   Replace(chaine, " ", "")
Wend

[Bigyork]

Effectivement je me suis un peu emballé désolé