Discussion :

[Kaytilou]

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

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

Voici le code erreur


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