passer dtpicker1 en format jjmmaa

[Manu62]

Bonjour

Je voudrais passer mon format de dtpicker1 lors de l'ajout dans la cellule dans ce format

01/01/2010 en 010110

j'ai mis cela mais cela ne marche pas vraiment


Sheets("Compta").Cells(ligne, 2) = Format(Date, "ddmmyy") & Me.DTPicker1
ou
Sheets("Compta").Cells(ligne, 2) = Me.DTPicker1 & Format(Date, "ddmmyy")

merci a vous

Manu

 

[Épaf]

Re : passer dtpicker1 en format jjmmaa

Bonjour,
Je ne connais pas DTPicker mais ce serait plutôt
... = Format(cdate(Me.DTPicker1), "ddmmyy")
Sinon, teste avec val à la place cdate
A+

 

[Manu62]

Re : passer dtpicker1 en format jjmmaa

Bjr,

J'ai essayé val et cdate,

mais il me met 210452 (par exemple pour le 1 er mars)

Manu

 

[Épaf]

Re : passer dtpicker1 en format jjmmaa

Alors teste avec Format(cdbl(Me.DTPicker1), "ddmmyy")

 

[Manu62]

Re : passer dtpicker1 en format jjmmaa

Bonjour

C'est pareil, j'ai la même donnée.

Manu

 

[Manu62]

Re : passer dtpicker1 en format jjmmaa

Bj

J'ai essayé cela

NumberFormat(CDbl(Me.DTPicker1), "ddmmyy")

mais je pense être pas loin

Qu'en pensé vous

Manu

 

[Guiv]

Re : passer dtpicker1 en format jjmmaa

Re, Manu62, Epaf

Format(CDbl(DTPicker1), "ddmmyy")

fonctionne si tu mets ta cellule en format texte.
Voir fichier joint.
Cordialement,
Guiv

 

[Manu62]

Re : passer dtpicker1 en format jjmmaa

Bjr, c'est good en format texte

merci

manu