C cloclo57 XLDnaute Junior 21 Mars 2008 #1 Bonjour le forum Un petit soucis de format d'un textbox Je voudrais que la somme soit sous la forme ( 22,00 € ) Il doit y avoir une erreur dans la forme ci dessous tarif.Value = format(tarif.Value, "# 00.## €") Merci d'avance de la reponse
Bonjour le forum Un petit soucis de format d'un textbox Je voudrais que la somme soit sous la forme ( 22,00 € ) Il doit y avoir une erreur dans la forme ci dessous tarif.Value = format(tarif.Value, "# 00.## €") Merci d'avance de la reponse
wilfried_42 XLDnaute Barbatruc 21 Mars 2008 #2 Re : format texbox bonjour essaye ca tarif.Value = format(val(tarif.Value), "# 00.##") & " €" Vote positif 0 Vote négatif
Pierrot93 XLDnaute Barbatruc 21 Mars 2008 #3 Re : format texbox Bonjour Cloclo regarde le code ci dessous, si cela peut t'aider : Code: Private Sub UserForm_Initialize() tarif.Value = "22" tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub bon après midi @+ Edition : bonjour Wilfried Vote positif 0 Vote négatif
Re : format texbox Bonjour Cloclo regarde le code ci dessous, si cela peut t'aider : Code: Private Sub UserForm_Initialize() tarif.Value = "22" tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub bon après midi @+ Edition : bonjour Wilfried
C cloclo57 XLDnaute Junior 21 Mars 2008 #4 Re : format texbox Bonjour et merci d'avoir repondu . Il y a toujours une erreur dans le format du textbox Si je rentre la valleur 22, il m'affiche ( 02, € ) Merci Vote positif 0 Vote négatif
Re : format texbox Bonjour et merci d'avoir repondu . Il y a toujours une erreur dans le format du textbox Si je rentre la valleur 22, il m'affiche ( 02, € ) Merci
wilfried_42 XLDnaute Barbatruc 21 Mars 2008 #5 Re : format texbox re: excuse, j'ai simplement vu que tu cherchais à affecter un format à une valeur aphabetique plutot qu'une valeur numerique tarif.Value = format(val(tarif.Value), "# ##0.00") & " €" Vote positif 0 Vote négatif
Re : format texbox re: excuse, j'ai simplement vu que tu cherchais à affecter un format à une valeur aphabetique plutot qu'une valeur numerique tarif.Value = format(val(tarif.Value), "# ##0.00") & " €"
Pierrot93 XLDnaute Barbatruc 21 Mars 2008 #6 Re : format texbox Re attention "val" n'accepte que le point en séparateur de décimale. @+ Vote positif 0 Vote négatif
C cloclo57 XLDnaute Junior 21 Mars 2008 #7 Re : format texbox Bonjour Wilfried 42 Merci de ta reponse rapide J'ai essayé ton dernier exemple tarif.Value = format(val(tarif.Value), "# ##0.00") & " €" en entrant la valeur 22 il me m'affiche ( 2,00 € ) Merci de ta collaboration Vote positif 0 Vote négatif
Re : format texbox Bonjour Wilfried 42 Merci de ta reponse rapide J'ai essayé ton dernier exemple tarif.Value = format(val(tarif.Value), "# ##0.00") & " €" en entrant la valeur 22 il me m'affiche ( 2,00 € ) Merci de ta collaboration
C cloclo57 XLDnaute Junior 21 Mars 2008 #8 Re : format texbox Bonjour Merci de ta reponse rapide J'ai essayé ton dernier exemple tarif.Value = Format(tarif.Value, "# #0.00 €") en entrant la valeur 22 il me m'affiche ( 2,00 €2 ) Merci de ta collaboration Vote positif 0 Vote négatif
Re : format texbox Bonjour Merci de ta reponse rapide J'ai essayé ton dernier exemple tarif.Value = Format(tarif.Value, "# #0.00 €") en entrant la valeur 22 il me m'affiche ( 2,00 €2 ) Merci de ta collaboration
Pierrot93 XLDnaute Barbatruc 21 Mars 2008 #9 Re : format texbox Re as tu essayé le code que j'avais proposé à 13h39 ? Vote positif 0 Vote négatif
C cloclo57 XLDnaute Junior 21 Mars 2008 #10 Re : format texbox Bonjour J'ai essayé l'exemple ci dessous Private Sub tarif_Change() tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub Merci de ta collaboration Vote positif 0 Vote négatif
Re : format texbox Bonjour J'ai essayé l'exemple ci dessous Private Sub tarif_Change() tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub Merci de ta collaboration
Pierrot93 XLDnaute Barbatruc 21 Mars 2008 #11 Re : format texbox Re si tu places le code dans un événement du textbox, place le dans l'événement "Exit" ou "afterupdate". Vote positif 0 Vote négatif
Re : format texbox Re si tu places le code dans un événement du textbox, place le dans l'événement "Exit" ou "afterupdate".
C cloclo57 XLDnaute Junior 21 Mars 2008 #12 Re : format texbox Je suis un petit debutant Je ne vois pas trop ce que tu veux dire par la Vote positif 0 Vote négatif
Pierrot93 XLDnaute Barbatruc 21 Mars 2008 #13 Re : format texbox Re essaye comme ceci : Code: Private Sub tarif_Exit() tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub l'événement change intervient à chaque fois que tu tappes un caractère, l'événement "Exit" se déclenchera quand tu quitteras le textbox. @+ Vote positif 0 Vote négatif
Re : format texbox Re essaye comme ceci : Code: Private Sub tarif_Exit() tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub l'événement change intervient à chaque fois que tu tappes un caractère, l'événement "Exit" se déclenchera quand tu quitteras le textbox. @+
C cloclo57 XLDnaute Junior 21 Mars 2008 #14 Re : format texbox J'ai mis ton exemple en place et j'ai le message suivant Private Sub tarif_Exit() tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub Erreur de compilation La declaration de la procedure ne correspond pas a la description de l'evenement ou de la procedure de meme nom Vote positif 0 Vote négatif
Re : format texbox J'ai mis ton exemple en place et j'ai le message suivant Private Sub tarif_Exit() tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub Erreur de compilation La declaration de la procedure ne correspond pas a la description de l'evenement ou de la procedure de meme nom
cbea XLDnaute Impliqué 21 Mars 2008 #15 Re : format texbox Bonjour à tous, Peux-tu essayer comme cela ? Private Sub tarif_Exit(ByVal Cancel As MSForms.ReturnBoolean) tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub Merci Vote positif 0 Vote négatif
Re : format texbox Bonjour à tous, Peux-tu essayer comme cela ? Private Sub tarif_Exit(ByVal Cancel As MSForms.ReturnBoolean) tarif.Value = Format(tarif.Value, "# #0.00 €") End Sub Merci