DTpicker et Multipage

Bonsoir à toutes et tous,

j'ai un DTPicker1 sur la page1 de mon multipage1, sur la page2 de ce multipage1 j'ai un DTPicker2 auquel je veux reprendre la date du DTP1 et d'y ajouter un nombre de jours en cliquant sur un bouton. Normalement rien d'extraordinaire.

......et bin ça veut pas fonctionner.

Pourtant quand les DTP et le bouton sont sur la même page, ça fonctionne.

mais pas quand je split.

si quelqu'un pouvez m'expliquer ce qui cloche, ça serait super sympa.

je vous met un petit exemple en fichier joint.

29dtptest.xlsm (21.87 Ko)

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

Bonjour Joseph,

Merci pour ton explication, cela fonctionne nickel.

tchuss

Rechercher des sujets similaires à "dtpicker multipage"