Microsoft 365 Format euro

FCMLE44 · 12 Novembre 2020

Bonjour

Dans le code ci-dessous, je souhaiterais que le montant que je saisirais se mettent automatiquement en euros

VB:

Private Sub TextBox13_Change()
Range("E10").Value = Prépacourriers.TextBox13.Value
End Sub

En effet, même si ma cellule E10 est au format monétaire, le montant ne s'affiche pas avec le petit €

Auriez vous une idée ?

Merci

ChTi160 · 12 Novembre 2020

Bonjour FCMLE44
peut être ainsi Lol

VB:

Private Sub TextBox13_Change()
Range("E10").Value = Format(Ccur(Prépacourriers.TextBox13.Value),"### ##0.00 €")
End Sub

non testé
ensuite tu utilises la méthode Change du TextBox pas compris sans le reste de la procédure(Fichier joint)
tu mets a jour la Cellule "E10" au fur et à mesure de la Saisie ??
explique un peu ?
jean marie

ChTi160 · 12 Novembre 2020

Bonjour FCMLE44
peut être ainsi Lol

VB:

Private Sub TextBox13_Change()
Range("E10").Value = Format(Ccur(Prépacourriers.TextBox13.Value),"### ##0.00 €")
End Sub

non testé
ensuite tu utilises la méthode Change du TextBox pas compris sans le reste de la procédure(Fichier joint)
tu mets a jour la Cellule "E10" au fur et à mesure de la Saisie ??
explique un peu ?
jean marie

FCMLE44 · 12 Novembre 2020

Merci
En fait c'est un gros projet complet cette cellule est mise à jour dans un userform. Elles changemnt régulièrement selon la saisie souhaitée

Microsoft 365 Format euro

FCMLE44

XLDnaute Impliqué

ChTi160

ChTi160

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

Discussions similaires