Discussion :

[mouftie]

Bonjour,
je ne comprends pas ce qui se passe, j'ai une USF dans laquelle je saisie des montants que j'enregistre ensuite dans une base de données.
pour ce faire, j'utilise le code

Code :

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

Range("D" & DerLg) = Format(TbxAsDiMt.Value, "#,##0.00 €")

Dans la USF j'ai saisie 22.50 et dans la BdD j'ai 0,92 €.
Je ne comprends d'autant moins que je saisis 4 montants et que certains sont bons d'autres pas et pas toujours les mêmes ne correspondent pas à la saisie.
Est-ce quelqu'un a un conseil à me donner, svp.
Merci

[mercatog]

Essaies comme ceci 9sans parler du séparateur décimal à ce stade)

Code :

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

1
2
3
4
With Range("D" & DerLg)
    .Value = CDbl(TbxAsDiMt.Value)
    .NumberFormat = "#,##0.00 €"
End With

[unparia]

Bonjour

Dans la USF j'ai saisie 22.50

"22.50" ou "22,50" ?
Ce qui est saisi est du texte et non du numérique. La conversion à faire en numérique est nécessaire et dépend du séparateur décimal saisi et de celui en vigueur sur ta machine.

[Invité]

Code :

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

Range("D" & DerLg) = Format(val(replace(TbxAsDiMt.Value,",",".")), "#,##0.00 €")

[mouftie]

Bonsoir et merci à tous pour vos propositions.
Je galère beaucoup pour cet USF, je ne comprends pas pourquoi, j'en ai un autre, dans le même classeur qui fonctionne très bien pour enregistrer du monétaire et des dates et celui-ci ne veut rien savoir...
Bref ce qui fonctionne le mieux, cet la proposition de dysorthographie, à laquelle, j'ai rajouté :

Code :

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

Range("D" & DerLg) = Range("D" & DerLg) * 1

car j'avais le petit losange vert m'indiquant que c'était du texte !
Encore merci à tous

[Docmarti]

Bonjour.

Il y a une solution simple qui fonctionne bien :

Code :

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

Range("D" & DerLg) = Val(Replace(TextBox1.Value, ",", "."))

car Val ne reconnait que le point comme separateur decimal. C'est donc simple.

Format est complexe car il exige le separateur decimal regional qui varie selon la region.
Idem pour CDbl.

Et pour Format, 12,50 est un nombre, 12.50 est une heure. C'est la raison pour laquelle il estime que la valeur numerique de 12.50 est 0,53

[unparia]

1) Je rejoins Docmarti.
2) mais pardessus tout : ce n'est pas une bonne idée, que de formater la valeur et d'alimenter la cellule avec le résultat de ce format.
Il faut alimenter la cellule par la valeur numérique et donner à la cellule le format souhaité