Ajouter 42 jours à un DTPicker en fonction d'un 1er DTPicker

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

MODIFICATION DE MA DEMANDE:

Un TextBox ferait tout aussi bien l'affaire au lieu du 2ème DTPicker

1.soit DTPicker1 avec une date

2.Un TextBox 2 avec la même date + 42 jours

Merci de votre patience

Amitiés

Pierrot

Bonjour Pierre,

un truc dans le genre :

date2 = DateAdd("d", 42, date1)

Pierre

Bonjour Pierre56

en effet c'est quelque chose comme cela, mais j'aurais préféré en lignes de code

parce que je ne sais pas ou placer le code que tu m'as donné ?

j'ai des variables non déclarées, et d'autres messages d'erreurs

Si tu veux bien tester le fichier avec l'Userform_Famille

A PLus

Pierrot

34pedicure-cp002.xlsm (117.18 Ko)

Bah, j'ai pas les dtpicker sur mon PC car pas suffisamment de portabilité pour les clients et c'est trop souvent relou.

Mais dans ta sub événementielle Private Sub DTPicker1_Change tu mets un truc genre

TextBox2.Value = DateAdd("d", 42, DTPicker1.Value)

Pierre

Je suis désolé, ça ne marche toujours pas

Merci pour tous tes efforts, bonne soirée

Amitiés

Pierrot

Rechercher des sujets similaires à "ajouter jours dtpicker fonction 1er"