Microsoft 365 Format euro

[FCMLE44]

Bonjour

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

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]

Bonjour FCMLE44
peut être ainsi Lol

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]

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