Bonjour et à toutes et à tous
Une version modifiée de M12
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
'*******************************************************
Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Me.DTPicker2 = (DTPicker1.Value + 42)
End Sub
deux DTPickers le 1er sert de date de référence, je second reçoit 42 jours en plus Que code écrire ?
Un grand merci pour votre gentillesse
Amlicalement
Pierrot