[Resolu] ecrire 2 dates dans cellule

[Bearn 64]

Bonsoir le Forum

Je désire saisir 2 dates a l'aide d'un UseForm DTPicker je ne trouve pas pourquoi quand je change de mois sur DTPicker1 et ou DTPicker2 il n’écrit rien, si je reste sur le même mois Ok.

Merci de votre aide

 

[Modeste geedee]

Re : ecrire 2 dates dans cellule

Bonsour®

il convient d'utiliser l'événement "change" pour chaque DTPicker

Private Sub DTPicker1_Change()
Sheets("Feuil2").Select
Range("B1") = DTPicker1.Value
Range("B1").NumberFormat = "dd/mm/yyyy"
Range("B2") = DTPicker2.Value
Range("B2").NumberFormat = "dd/mm/yyyy"
End Sub

Private Sub DTPicker2_Change()
Sheets("Feuil2").Select
Range("B1") = DTPicker1.Value
Range("B1").NumberFormat = "dd/mm/yyyy"
Range("B2") = DTPicker2.Value
Range("B2").NumberFormat = "dd/mm/yyyy"
End Sub

 

[Bearn 64]

Re : ecrire 2 dates dans cellule

Bonjour le Forum, Bonjour Modeste geedee.

Merci de cette repose rapide et efficace.

Comment faire pour que la date dans le DTPicker2 si elle représente la Date (date du jour) soit écrite en appuyant sur Valider.


Merci