Discussion :

[TonyRc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

Merci de votre aide

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

[TonyRc]

Merci ! Les deux fonctionnent parfaitement !