Formater date dtpicker

[helene51]

Bonjour le forum,

Depuis ce matin j'essaie de résoudre un problème de date dans un de mes userform de saisie sans succès. Je fais donc appel à vous car je ne trouve pas la solution.

Sur mon userform j'ai un contrôle DTPicker1. Après selection de la date, celle-ci est inséré dans un label1 et enregistrée dans la Feuil1 en A1.
Mon problème est que la date est enregistrée sous la forme mm/dd/yyyy au lieu de dd/mm/yyyy. Pourtant lors de l'initialisation de mon formulaire j'ai placé l'instrution suivante :

UserForm1.DTPicker1.Value = Date
DTPicker1.Value = Format(Date, "dd/mm/yyyy")

et quand la date du DTPicker apparait dans le label1 elle est de la forme "dd/mm/yyyy".

Il doit y avoir un problème quand la date est transférée du Label1 à ma cellule A1 mais je ne sais pas quoi.

Je mets un petit fichier en exemple de ce que je veux faire.

Merci d'avance.

 

[bqtr]

Re : Formater date dtpicker

Bonjour helene,

Essaye comme ceci:

Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Range("A1").Value = CDate(Format(Label1.Caption, "dd/mm/yyyy"))
End Sub

A+

 

[job75]

Re : Formater date dtpicker

Bonjour helene51,

Pour entrer la valeur en A1 utiliser CDate :

Range("A1").Value = CDate(Label1.Caption)

Par ailleurs dans :

UserForm1.DTPicker1.Value = Date
DTPicker1.Value = Format(Date, "dd/mm/yyyy")

la 1ère ligne est inutile.

A+

Edit : salut Pierre Olivier

 

[helene51]

Re : Formater date dtpicker

Bonjour bqtr et job75,

J'essaie vos réponses de suite.

Merci pour l'aide.