Datepicker

[egman]

Bonjour à tous,

J'ai un petit problème sur la mise en place d'un Datepicker sur mon Usrfrm.
Apparemment c'est un problème de Format mal défini mais je ne vois pas où....

En fait j'aimerai pouvoir me servir du Datepicker à la place de ma TxtBox1 sur le Usrfrm.

Si quelqu'un pouvait m'aiguiller ce serait sympa.

D'avance MERCI à tous

 

[Guest]

Re : Datepicker

Bonjour,

Dim MyDate as date
MyDate = DTPicker1.Value

A+

 

[egman]

Re : Datepicker

Bonjour Hasco

merci pour ta réponse aussi rapide
J'essaye et te tiens au courant

A+

 

[egman]

Re : Datepicker

Je viens d'essayer ton code mais j'ai toujours un problème au niveau du format....

Sheets("Feuil1").Cells(65536, 1).End(xlUp).Offset(1, 0).Value = Format(MyDate, "mm/dd/yyyy")

C'est le Format de Format(MyDate...) qu'il aime pas

Tu vois d'où çà peut venir ?

D'avance merci

 

[Guest]

Re : Datepicker

Re,

Si MyDate est déclarée en Date

with Sheets("Feuil1").Cells(65536, 1).End(xlUp).Offset(1, 0)
     .Value = MyDate
      .numberFormat="mm/dd/yyyy" ' Peut-être inutile suivant le cas
end with

A+

 

[egman]

Re : Datepicker

Ah OK je vois çà et te tiens au courant

MERCI

A+

 

[egman]

Re : Datepicker

Effectivement cela fonctionne seul hic au tableau c'est que lorsque je veux rester sur ligne de données déjà sur la Feuil1 et que je veux changer la date à l'aide du Datepicker il incrémente systématiquement la nouvelle date sur la ligne du dessous ! ! !
En fait je pensais me servir du Datepicker soit en mode Modification soit en mode Nouvelle entrée.

Je sais pas si je suis bien clair.

Merci