Bonjour tout le monde,

J'ai un userform avec un dtpicker qui ne fonctionne pas et je n'arrive pas à résoudre le problème. Le format de la colonne est de type date courte.
Quand je veux ajouter une date dans cette colonne, il m'ajoute automatiquement 00/01/1900. J'ai déjà essayé plusieurs solutions (format, datevalue, etc.) mais je n'arrive pas à le résoudre, quand j'utilise ces méthodes il me met 30/12/1899. J'ai essayé sur un autre fichier et ça fonctionne, la date s'affiche correctement. Je ne comprends pas pourquoi ça fait ça...

Je met mon code en dessous.

Avez-vous une idée pour résoudre le problème ?

Merci à vous.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub UserForm_Initialize()
Me.DTPicker1.Value = Now
End Sub
 
Private Sub Btn_Valider_Click()
Dim ActiveLigne as Integer
ActiveLigne = Cells(Cells.Rows.Count,1).End(xlUp).Offset(1,0).Row
Cells(ActiveLigne,3).Value = DTPicker1.Value 
End Sub