Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Formater date dtpicker

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

helene51

XLDnaute Junior
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 :

Code:
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.
 

Pièces jointes

Re : Formater date dtpicker

Bonjour helene,

Essaye comme ceci:

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

A+
 
Re : Formater date dtpicker

Bonjour helene51,

Pour entrer la valeur en A1 utiliser CDate :

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

Par ailleurs dans :

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

la 1ère ligne est inutile.

A+

Edit : salut Pierre Olivier
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
329
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
146
Réponses
6
Affichages
443
Réponses
5
Affichages
719
Réponses
8
Affichages
538
Réponses
3
Affichages
223
Réponses
15
Affichages
225
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…