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

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!:D
 
Dernière édition:

pierrejean

XLDnaute Barbatruc
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
 

gilbert_RGI

XLDnaute Barbatruc
Re : Problème dans le format de la date avec DT Picker

Bonjour

Avez vous le même problème avec celui-ci

Salutations

RGI
 

Pièces jointes

  • DTPICKER.xls
    34.5 KB · Affichages: 87
  • DTPICKER.xls
    34.5 KB · Affichages: 88
  • DTPICKER.xls
    34.5 KB · Affichages: 87

kjin

XLDnaute Barbatruc
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
 

benoua

XLDnaute Occasionnel
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é!:D
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!:eek:
Enfin bref, merci kjin et à ceux qui se sont penchés sur le problème!

Bonne fin de journée!;)
 

Spitnolan08

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
17
Affichages
849