Bonjour babarjoh, bonjour le forum,
Il faut sélectionner la page avant d'y lire ou d'y écrire.
Dp2 public pour passer la date d'une page à l'autre.
MultiPage1.Value = 0 > pour la page1
MultiPage1.Value = 1 > pour la page2
Public Dp2 As Date
Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 1 ' sélectionne la page avant de donner la date du jour
Me.DTPicker2.Value = Date
Me.MultiPage1.Value = 0 ' remet la page 1 pour la sélection à l'ouverture du UserForm
Me.DTPicker1.Value = Date 'donne la date du jour
End Sub
Private Sub CommandButton1_Click()
Me.MultiPage1.Value = 0 ' sélectionner la page avant de lire le dtpicker
Dp2 = Me.DTPicker1.Value + 365
Me.MultiPage1.Value = 1 'sélectionner la page avant d'écrire dans le dtpicker
Me.DTPicker2.Value = Dp2
End Sub
Pour le DtPicker2, dans ses Propriétés, mets TabStop à False. Sinon, le jour va être sélectionné (en bleu).
Joseph