Bonsoir à tous,
Bien tôt ce matin, mais j'ai pris goût à la création d'un nouveau fichier de gestion des ventes :-)
J'ai créé un formulaire simple avec des Textbox et ComboBox. J'ai besoin de formaté certaines cellules car une fois que le formulaire est complété et les données intégrées dans la base de données, il y a quelques bugs (les dates et prix sont considérés comme du texte).
J'ai donc utilisé Private Sub UserForm_Initialize() pour initialiser les données mais sans succès.
Voici le code
Voici le code erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub UserForm_Initialize() 'Affiche le prix en format personnalisé avec séparateur de milliers, décimales et txtNombre.Value = Format(txtPrix, "# ##0,00 ") 'Affiche uniquement la date txtDate.Value = Format(txtDateCommande, "DD/MM/YY") txtDate.Value = Format(txtDateFacture, "DD/MM/YY") 'Affiche le % txtPourcentage.Value = Format(txtRemise, "0,00 %") End Sub
Une idée de ce qui cloque ? Merci pour votre aide
Je vais aller me coucher (il est 2h48 ce matin) et j'espère à mon réveil trouver la solution
Bonne journée à tous
Partager