VBA - Userform - Date

Bonjour,

Je souhaite utiliser un format date dans un userform. mon principale probleme est a chacun fois que j'essaie d'inserer une date selon le format defini il me revoit des valeurs par defaut.

Voici mon code:

Code:

---

1 2 3 4 5

Private Sub TextBox1_Change()   TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")   End Sub

---

J'ai essaye avec ce topicici. Toutefois, j'ai toujours les memes valeur par defaut ... 01/01/1900 ou 31/12/1899 ... :x

Merci de votre aide

Bonjour,
sans avoir testé, passes par une variable :

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Change() Dim dt As Date dt = Format(TextBox1, "dd/mm/yyyy") TextBox1.Value = dt   End Sub

---

Tu as choisi le mauvais évènement (Change) qui est appelé dès que le changement est opéré dans le TextBox

Exemple, tu veux écrire 12/9/2010
dès que tu écris le premier 1, l'évènement est appelé et le textbox est formatée en 01/01/1900

Utilise l'évènement AfterUpdate ou Exit

Merci ! Les deux fonctionnent parfaitement !