Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Format €uros

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apdf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

apdf1

XLDnaute Impliqué
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.

Code: 
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
 
Trier par date Trier par votes
Re : Format €uros

Bonjour,

Essaie:
Code: 
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+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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é !
Code: 
' format €uros

Private Sub textbox12_AfterUpdate()

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

End Sub

@+
Max
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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.

Code: 
' 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+
 
Vote positif 0 Vote négatif
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 €")
Code: 
' 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
 
Vote positif 0 Vote négatif
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
Code: 
Txt = Replace(Replace(Replace(Txt, ".", ","), " €", ""), " ", "")

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


A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...

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:
Code: 
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:
Code: 
       .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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Question Question
XL 2016 Soustraction avec format monétaire dans textbox
Réponses
4
Affichages
1 K
richi2casa
R
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
2 K
MONADESIGN82
M
  • Question Question
XL 2010 Rentrer un nombre formaté dans un TextBox
Réponses
13
Affichages
1 K
job75
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
L
  • Question Question
XL 2016 format numérique textbox VBA
Réponses
5
Affichages
4 K
patricktoulon
B
  • Question Question
XL 2016 format date dans 2 TB
2
Réponses
15
Affichages
2 K
bidoutche
B
L
  • Question Question
XL 2016 Format Date "##/##/####" dans TextBox
3 4 5
Réponses
60
Affichages
16 K
patricktoulon
  • Question Question
XL 2013 Format textbox
2
Réponses
26
Affichages
3 K
maval
  • Question Question
XL 2016 Combobox n'affiche pas las valeurs des Textbox(s)
Réponses
1
Affichages
713
Amigo
V
  • Question Question
Microsoft 365 Actualisation formule écrite via macro en liaison avec une BBD
Réponses
2
Affichages
2 K
vynmarius
V
F
  • Question Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
D
  • Question Question
XL 2013 Modifier via USF une base de donnée
Réponses
6
Affichages
1 K
dgeo27
D
P
  • Question Question
Lenteur d’exécution userform
Réponses
4
Affichages
1 K
Bebere
B
S
  • Question Question
XL 2010 Format numérique Textbox USF, 2 chiffres après le point
Réponses
14
Affichages
3 K
Scorpio
S
T
  • Question Question
Trier les informations d'une liste déroulante
Réponses
3
Affichages
2 K
Toubabou
T
V
  • Question Question
Problème correspondance Valeur et Textbo d'un userform
Réponses
2
Affichages
2 K
VOILLOT
V
C
  • Question Question
Probleme incompatibilité type horaire
Réponses
1
Affichages
910
Dranreb
M
  • Question Question
Calcul d'age
Réponses
3
Affichages
895
M.D
M
J
  • Question Question
formulaire de saisie, combobox fonctionne pas
3 4 5
Réponses
60
Affichages
10 K
BOISGONTIER
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…