Format €uros

[apdf1]

Re Bonjour,

J'aimerais avoir les textbox en format €uros, voila le code que j'utilise et sa ne marche pas quand je reçois les valeurs des cellules vers textbox
Ex. 26,6789 au lieu de 26.67 € pourriez-vous me donnée un tuyau pour remédier a ce problème.

Format €uros

Private Sub textbox12_AfterUpdate()
TextBox12.Value = Format(Val(TextBox12.Value), "# ### ###.#0 €")
TextBox12.SelStart = Len(TextBox12.Value) - 1
End Sub

Merci d’avance

Cordialement
Max

 

[Guest]

Re : Format €uros

Bonjour,

Essaie:

Dim txt As String
txt = Replace(Replace(Replace(TextBox12, ".", ","), " €", "")," ","")
TextBox1 = Format(CDbl(txt), "### ### ##0.00 €")

Pour remplacer le point par la virgule, le symbole euro par rien et les espaces par rien puis réafficher.
Attention si ton textbox contient autre chose que des chiffres, espace, point ou virgule.
A+

 

[apdf1]

Re : Format €uros

Re,

Et merci de m'avoir répondu aussi vite, mais toujours pareil j'ai mis le code comme ci dessous mais rien na changer ?

A moins que je me suis trompé !

' format €uros

Private Sub textbox12_AfterUpdate()

Dim txt As String
txt = Replace(Replace(TextBox12, ".", ","), " €", "")
TextBox12 = Format(CDbl(txt), "# ##0.00 €")

End Sub

@+
Max

 

[Guest]

Re : Format €uros

Re,

J'ai rééditer mon post précédent pour une petite modif. Reprends le et teste.

Si cela ne va pas reviens avec un fichier reproduisant le problème.

A+

 

[apdf1]

Re : Format €uros

Bonjour,

Je n'ais pas peut répondre avant je m'en excuse.
Voila j'ai repris la modif mais rien na changer. Je joins mon fichier peut être plus de chance.

Bonne journée

Cordialement
Max

 

[Guest]

Re : Format €uros

Bonjour,

Je n'ai pas vu les modifications que je t'ai données dans le fichier. Je ne peux donc pas te dire ce qui n'a pas fonctionner.

Voici le code pour tes textBox, une fonction perso retourne le format. Cela fonctionne chez moi.

' format €uros
Private Sub textbox11_AfterUpdate()
[COLOR=royalblue]TextBox11.Text = FormatEuro(TextBox11.Text)
[/COLOR]TextBox11.SelStart = Len(TextBox11.Value) - 1
End Sub
' format €uros
Private Sub textbox12_AfterUpdate()
[COLOR=royalblue]TextBox12.Text = FormatEuro(TextBox12.Text)
[/COLOR]TextBox12.SelStart = Len(TextBox12.Value) - 1
End Sub
' format €uros
Private Sub textbox13_AfterUpdate()
TextBox13.Text = FormatEuro(TextBox13.Text)
TextBox13.SelStart = Len(TextBox13.Value) - 1
End Sub
' fonction perso pour retourner le format Euro
[COLOR=royalblue]Private Function FormatEuro(ByVal Txt As String) As String
[/COLOR]Txt = Replace(Replace(Replace(Txt, ".", ","), " €", ""), " ", "")
FormatEuro = Format(CDbl(Txt), "### ### ##0.00 €")
[COLOR=royalblue]End Function
[/COLOR]

A+

 

[apdf1]

Re : Format €uros

Bonjour,

Je te remercie beaucoup Hasco,
J’ai essayé le code sur deux ordinateurs et même message d'erreur.
"Erreur d'exécution 13 incompatibilité de type" quand je lui fais un débogage il me surligne.
FormatEuro = Format(CDbl(Txt), "### ### ##0.00 €")

' format €uros
Private Sub textbox11_AfterUpdate()
TextBox11.Text = FormatEuro(TextBox11.Text)
TextBox11.SelStart = Len(TextBox11.Value) - 1
End Sub
' format €uros
Private Sub textbox12_AfterUpdate()
TextBox12.Text = FormatEuro(TextBox12.Text)
TextBox12.SelStart = Len(TextBox12.Value) - 1
End Sub
' format €uros
Private Sub textbox13_AfterUpdate()
TextBox13.Text = FormatEuro(TextBox13.Text)
TextBox13.SelStart = Len(TextBox13.Value) - 1
End Sub
' fonction perso pour retourner le format Euro
Private Function FormatEuro(ByVal Txt As String) As String
Txt = Replace(Replace(Replace(Txt, ".", ","), " €", ""), " ", "")
[B][COLOR="Red"]FormatEuro = Format(CDbl(Txt), "### ### ##0.00 €")[/COLOR][/B]End Function

J'espère que tu pourras trouver une solution parce que moi je nage complètement.

Cordialement

Max

 

[JNP]

Re : Format €uros

Bonjour le fil 🙂,
J'ai testé le code de Ges, aucun souci 😕...
Voir PJ.
Bonne journée 😎

 

[Guest]

Re : Format €uros

Bonjour,

Hello JN🙂

Apdf, c'est quoi le séparateur décimal sur ta machine? Et/ou dans excel? Le point ou la virgule?

Si c'est le point: Remplacer

Txt = Replace(Replace(Replace(Txt, ".", ","), " €", ""), " ", "")

PAR

Txt = Replace(Replace([COLOR=red][B]Replace(Txt, "[SIZE=3][COLOR=blue],[/COLOR][/SIZE]", "[SIZE=3][COLOR=blue].[/COLOR][/SIZE]")[/B][/COLOR], " €", ""), " ", "")

A+

 

[apdf1]

Re : Format €uros

Salut Hasco,

Je viens de vérifier le point décimal c'est la virgule.

@+
Max

 

[Guest]

Re : Format €uros

Re,

Alors je ne comprends pas, chez moi et JNP cela fonctionne.
Nous parlons bien d'un formatage sur évènement After_Uptdate, c'est à dire juste avant que le textbox soit quitté.
Teste le fichier joint et dis nous.

A+

 

[apdf1]

Re : Format €uros

Hasco,

Je pense que je me suis mal expliqué et que nous ne parlons pas de la même chose.
Si je rentre un montant dans la textbox par exemple 20.00, j'aurais 20.00€ quand je change de textbox ou si je fais entré. La pas de problème sa fonctionne bien.
Le problème et quand je fais une recherche dans les cellules de ma feuille j'ai des montants comme 20.987 par exemple.

Je pense que je me suis mieux expliqué.

Bonne journée et merci encore.

@+
Max

 

[Guest]

Re : Format €uros

Re,

Je me permets de te rappeler ta demande du post #1

J'aimerais avoir les textbox en format €uros, voila le code que j'utilise et sa ne marche pas quand je reçois les valeurs des cellules vers textbox

Donc nous sommes d'accord, cela fonctionne.

Je pense comprendre ce que tu veux. J'attendais plus ou moins la question d'ailleurs.

Rajoute la fonction suivante en bas de ton Module:

Private Function GetValeurEuro(ByVal txt As String) As Double
     GetValueEuro = CDbl(Replace(Replace(Replace(txt, ".", ","), " €", ""), " ", ""))
End Function

Puis partout où tu mets les valeurs des textbox euros dans les cellules:

       .Cells(L, 11) = GetValeurEuro(TextBox11)
                .Cells(L, 12) = GetValeurEuro(TextBox12)
                .Cells(L, 13) = GetValeurEuro(TextBox13)

A mon avis tu as interêt à contrôler la saisie des utilisateurs dans les textbox pour qu'il ne rentre pas autre chose que des chiffres, point , virugle, espace. Sinon tu auras des erreurs de conversion.

Fais éventuellement une recherche sur le forum, il y a plein d'exemples.
A+