Problème dans le format de la date avec DT Picker

  • Initiateur de la discussion Initiateur de la discussion benoua
  • Date de début Date de début

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 !

benoua

XLDnaute Occasionnel
Bonjour,

J'ai un gros souci avec DT picker et je m'en arrache les cheveux depuis ce matin!
Quand l'utilisateur choisit une date depuis DTP dans une UF celle-ci se copie dans une cellule.
Le problème si le jour choisit est inférieur au 12 (par exemple 2 avril)
la date s'affiche : 04/02/08
Alors que si le jour est supérieru à 12 genre 13 avril :
elle s'affichera 13/04/08
Je ne trouve pas l'origine de ce problème et je cherche desperement sur le forum mais rien de similaire...

Le code :

Private Sub UserForm_Initialize()

Ecran_Saisie.DTPicker2 = Date

End Sub


Private Sub CommandButton1_Click()

Range("G699").End(xlUp).Offset(1, 0).Value = UCase(DTPicker2.Value)

End Sub


Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Les propriétés du DTPicker (edit: le format est resté sur custom parce que j'ai essayé des trucs mais avec le format ShortDate le bugue est la aussi!):

fz3cwg.jpg


Les résultats en image :

35kpzrp.jpg


1dcas.jpg


Les cellules passent automatiquement du format standard au format date type : "*14/03/2001"

si quelqu'un me trouve la soluce, il sera mon dieu pour 2 jours!😀
 
Dernière édition:
Re : Problème dans le format de la date avec DT Picker

Bonjour benoua

Au risque de rester parmi les mortels , je te serai reconnaissant de poster une copie de ton fichier avec les seuls elements concernés par le problème
ce sera plus facile pour tout le monde
Ici on travaille surtout sur les fichiers et assez peu sur les images
 
Re : Problème dans le format de la date avec DT Picker

Bonjour,
C'est quoi :
Range("G699").End(xlUp).Offset(1, 0).Value = UCase(DTPicker2.Value)
Je pense que :
Range("G699").End(xlUp).Offset(1, 0).Value = DTPicker2.Value
fonctionnera mieux
A+
kjin
 
Re : Problème dans le format de la date avec DT Picker

bon tout d'abord pardon pour les images mais y'avait des trucs que j'voulait pas trop montrer dans le fichier et ca aurait foutu des bugues de partout si j'avais enlevé tout ça.
Bref j'pensais que ca suffirait! J'y penserai poru la prochaine fois!😉
En attendant la méthode de kjin a marché!😀
en fait j'avais récupéré cette macro dans le fichier d'un autre membre du forum qui utilisait une macro avec DT Picker et dont l'utilisation correspondait parfaitement à mon besoin. Du coup j'ai même pas cherché à comprendre à quoi Ucase servait, et par conséquent à essayer sans!
En mettant simplement "DTPicker2.Value" cela fonctionne parfaitement! Ca m'apprendra à copier des trucs sans chercher à comprendre!😱
Enfin bref, merci kjin et à ceux qui se sont penchés sur le problème!

Bonne fin de journée!😉
 
Re : Problème dans le format de la date avec DT Picker

Bonjour le fil,
Pierrejean 🙂 avec qui j'aurais été "Benoua tement" d'accord...

Pour ton information Ucase sert à transformer une chaine de caractères en majuscules.

Cordialement
 
- 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 de date
Réponses
5
Affichages
162
Retour