Bonjour,
J'ai un userform dans lequel j'ai intégré deux calendrier de type DTPicker, nommés respectivement Date1 et Date2. Ils sont bien réglés sur la date du jour à l'ouverture du formulaire.
Le problème et que quelle que ce soit la date que je renseigne, c'est la valeur "01/01/1900" qui va s'inscrire dans les cellules demandées...
J'ai bien la date du jour qui est prédifinie :
Private Sub UserForm_Initialize()
Date1 = Date
Date2 = Date
Traiter = "En Cours"
End Sub
Et le code du bouton "valider " est bien censé transférer la valeur sur la feuille :
Private Sub ButtonValider_Click()
Dim Dernligne
Dernligne = feuil1.Range("A65000").End(xlUp).Row + 1
feuil1.Range("D" & Dernligne).Value = Date1
feuil1.Range("N" & Dernligne).Value = Date2
End Sub
Sauriez-vous me dire où est le problème ? Rajouter ".value" ne change absolument rien.
Merci d'avance
J'ai un userform dans lequel j'ai intégré deux calendrier de type DTPicker, nommés respectivement Date1 et Date2. Ils sont bien réglés sur la date du jour à l'ouverture du formulaire.
Le problème et que quelle que ce soit la date que je renseigne, c'est la valeur "01/01/1900" qui va s'inscrire dans les cellules demandées...
J'ai bien la date du jour qui est prédifinie :
Private Sub UserForm_Initialize()
Date1 = Date
Date2 = Date
Traiter = "En Cours"
End Sub
Et le code du bouton "valider " est bien censé transférer la valeur sur la feuille :
Private Sub ButtonValider_Click()
Dim Dernligne
Dernligne = feuil1.Range("A65000").End(xlUp).Row + 1
feuil1.Range("D" & Dernligne).Value = Date1
feuil1.Range("N" & Dernligne).Value = Date2
End Sub
Sauriez-vous me dire où est le problème ? Rajouter ".value" ne change absolument rien.
Merci d'avance