Discussion :

[NEC14]

Bonjour,

Des sommes sont rapatriées dans des TextBox, le format nombre est "# ##0.00€"
De ce côté là ça fonctionne, mais dans les totaux, le montant est arrondi.
Exemple : Dans une TextBox j'ai un montant de 87,32€ le total indique 87,00€.
Quel est le soucis et comment le règler ?
Merci par avance

[ucfoutu]

Bonjour,

Comment sont-elles "rapatriées" exactement, pour passer d'un format tel "# ##0.00€" à un format tel 87,00€ ?

Comment veut dire : d'où ? de quel type à la source ? par quel type d'extraction ? envoyées à la textbox avec ou sans tremplin (et si tremplin, lequel) ?

[NEC14]

Bonjour,

Via un tableau Excel.
Mais je crois comprendre d'où vient le soucis. Sur mon poste de travail, la décimale est reconnue par ".", alors que sur les autres postes c'est ",".
Il va falloir que j'uniforme tout cela

[wilfried_42]

Bonjour à tous

voici une fonction peronnalisée : qui convertit du texte en montant quelque soit le caractere de separation des decimales

Code :

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

1
2
3
4
Function numero(Valeur as string) as double
    valeur = Application.WorksheetFunction.Substitute(valeur, ",", ".")
    numero = Val(valeur)
End Function

je préfère utiliser cette formulation
En cas de valeur Alpha ou de chaine Vide, val renvoie 0 contrairement à CDBL qui retourne une erreur

[NEC14]

Bonjour,
Où mets-tu ce code ? Dans un module ....?

[wilfried_42]

re:

oui dans un module standard, ensuite tu peux l'utiliser soit en formule, soit en tant que fonction en VBA

[NEC14]

Ok merci beaucoup pour ce code.
A+