[RESOLU] Pb de format date

[Ternoise]

Bonsoir le Forum

J'ai un problème de format de date sur certaines conditions.
J'ai mis une bonne partie de mon classeur en pièce jointe pour que vous voyez comment les données sont enregistrées.

Explication :

1 - Ouverture de l'UserForm
2 - Cliquez sur Imprimer
3 - Une feuille (TempPrint) s'ouvre
4 - Dans les colonnes B - I - K - M les dates ne sont pas au bon format. (mm/jj/aaaa)

Si vous dé-filtrez via l'optionBouton "Voir tous les dossiers" et que vous imprimez, les dates sont au bons formats (jj/mm/aaaa)

Ou est le problème ?

Merci de votre aide
David

 

[Lone-wolf]

Re : Pb de format date

Bonsoir Ternoise,

Difficile de s'y retrouver dans les codes. Une proposition exemple

Range("b2") = Replace(Range("b2"), ".", "/")


A+

 

[Docmarti]

Re : Pb de format date

Bonsoir Termoise; tous.

Pour éviter l'inversion jour/mois - mois/jour
Remplace tous les
= UCase(T(i, k))
par
= T(i, k)
car UCase transforme les dates en valeurs String, ce qui cause le problème d'inversion que tu rencontres quand les dates sont écrites sur la feuille.


Cordialement

Docmarti

 

[Ternoise]

Re : Pb de format date

Bonjour et merci à vous deux

En effet sans les UCase, ça marche nickel

encore merci

 

[Docmarti]

Re : Pb de format date

Le principe est simple :
À partir de VBA,
- ne pas envoyer une date de type String dans une cellule dont le format de nombre n'est pas Texte.
- ne pas envoyer une date de type Date dans une cellule dont le format de nombre est Texte.

Donc, on peut
- envoyer une date de type Date dans une cellule dont le format de nombre n'est pas Texte.
- envoyer une date de type String dans une cellule dont le format de nombre est Texte.

Si on ne respecte pas cette règle, il y a inversion jour/mois.
Docmarti

 

[Ternoise]

Re : Pb de format date

Merci de l'explication Docmarti