Bonjour le forum,
Je viens de me lancer dans la conception de mon premier Userform 🙂 et je rencontre quelques difficultés au niveau du format.
Mes recherches sur la toiles n'ont pas été couronnées de succès.
Je vais essayer de vous exposer mon souci de façon claire :
Mon userform comporte un certain nombre de Textbox dans lesquels les utilisateurs vont saisir des valeurs numériques avec des décimales (qui sont en réalité des valeurs monétaires).
Ces valeurs ont vocation à être reprises dans une feuille de calcul Excel, dans des cellules fixes.
Dans la feuille de calcul, les cellules sont formatées au format monétaire avec le symbole €.
Pour autant, lorsque je valide mon formulaire - ce qui déclenche l'alimentation des cellules de destination avec le contenu des Textbox, la valeur indiquée n'est pas monétaire.
Par exemple, si on saisit 1000,00 dans la Textbox, la cellule indique une valeur 1000 ; bien qu'étant correctement formatée.
Auriez-vous une explication ?
Faut-il que je code un format spécifique dans VBA ?
J'ai tenté d'intégrer ce code dans le Private Sub de la Textbox :
If Txt_Autreeuro <> "" Then
Sheets("Calcul").Select
Range("G21").NumberFormat = "#,##0.00 €"
End If
mais cela ne donne rien 🙁
Si vous pouviez éclairer ma lanterne, ce serait extra !
Belle journée à vous en attendant !
Et merci par avance !
Je viens de me lancer dans la conception de mon premier Userform 🙂 et je rencontre quelques difficultés au niveau du format.
Mes recherches sur la toiles n'ont pas été couronnées de succès.
Je vais essayer de vous exposer mon souci de façon claire :
Mon userform comporte un certain nombre de Textbox dans lesquels les utilisateurs vont saisir des valeurs numériques avec des décimales (qui sont en réalité des valeurs monétaires).
Ces valeurs ont vocation à être reprises dans une feuille de calcul Excel, dans des cellules fixes.
Dans la feuille de calcul, les cellules sont formatées au format monétaire avec le symbole €.
Pour autant, lorsque je valide mon formulaire - ce qui déclenche l'alimentation des cellules de destination avec le contenu des Textbox, la valeur indiquée n'est pas monétaire.
Par exemple, si on saisit 1000,00 dans la Textbox, la cellule indique une valeur 1000 ; bien qu'étant correctement formatée.
Auriez-vous une explication ?
Faut-il que je code un format spécifique dans VBA ?
J'ai tenté d'intégrer ce code dans le Private Sub de la Textbox :
If Txt_Autreeuro <> "" Then
Sheets("Calcul").Select
Range("G21").NumberFormat = "#,##0.00 €"
End If
mais cela ne donne rien 🙁
Si vous pouviez éclairer ma lanterne, ce serait extra !
Belle journée à vous en attendant !
Et merci par avance !
