Problème de paramétrage de la date

belhokamel Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
Bonjour à tous;

Problème N°1:

J'ai fait une txtb avec une rowsource de la date du jour =aujourd'hui(). La date s'affiche sur la txtb, mais mon problème dès que je la sélectionne dans mon userform, elle devient une date numérique. Cela dit, elle est récupérée en date du jour dans ma feuille de destination.
Pourriez vous m'aider à la paramétrer pour qu'elle s'affiche en format date dans le userform? Merci d'avance.

Problème N° 2:

J'ai fait une autre txtb dans le même userform pour y introduire des dates de naissance. Cette fois les mois et les jours sont inversés dans ma feuille de destination, je ne comprends pas pourquoi. J'ai vérifié mon code et il n'y a pas de problème: dd/mm/yyyy.
Auriez vous une idée pour résoudre ce problème. Merci beaucoup de votre amitié.
A voir également:

4 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

[A1] = DateValue(ta_date_texte) 

eric

PS: Albkan, pas la peine de ré-écrire ce que je viens de mettre sur 30 lignes stp. Merci
3
Utilisateur anonyme
 
[A1] = DateValue(date_texte)
0
belhokamel Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci albkan

Je vais essayer tes codes et je te tiendrai au courant.
0
belhokamel
 
albkan je te remercie

ça marche très bien pour ma combo date.
Je te remercie pour ton coup de pouce mon ami. Je suis franchement content.

je sais que j'abuse, mais t'aurais pas une solution pour mon deuxième problème?

J'inscris une date dans mon txtbox et il inverse le mois en jour et les jours en mois dans la feuille de destination.

Merci pour ton aide albkan
0
Utilisateur anonyme
 
 
Si tu veux juste inverser la position du mois et celle du jour :
TextBox1 = Format(Now(), "mm/dd/yyyy") => 01/08/2017

Si besoin, tu peux faire aussi :
TextBox1 = Format(Now(), "yyyy/mm/dd") => 2017/01/08
prêt pour un tri plus facile des dates : année/mois/jour

Non, non, tu n'abuses pas, mon ami : tu as même le droit
de demander encore d'autres choses, ce qui est tout à fait
normal sur un forum d'entraide, puisqu'il est fait pour ça !
 
0
belhokamel > Utilisateur anonyme
 
Salut albkan

Je ne comprends pas ça ne marche pas.
Les dates sont toujours inversées dans ma feuille de destination et ça me fausse tous les calculs.
Quand je saisis par exemple dans le userform 04/01/2000, il le fait normalement dans le userform, mais dès que je valide, il le met dans la feuille de destination inversé 01/04/2000. Je ne comprends pas du tout d'où vient le problème.
Merci de ton aide !!!
0
Utilisateur anonyme > belhokamel
 
 
En dehors d'Excel, fais d'abord ces vérifications : Panneau de configuration,
Région et langue, vérifie que tu as bien ces éléments :

Format : Français (France)

Date courte : jj/MM/aaaa
Date longue : jjjj j MMMM aaaa

---------------------------------------------------------

Par la même occasion, vérifie aussi, juste en dessous :

Heure courte : HH:mm
Heure longue : HH:mm:ss

Premier jour de la semaine : lundi

---------------------------------------------------------

Regarde les exemples situés dessous
pour voir si tu as bien ce que tu veux.

=================================

Retourne dans Excel ; dans un code VBA, utiliser le format "dd/mm/yyyy" ;
pour une cellule de ta feuille de calcul, utilise le format "jj/mm/aaaa" =>
04/01/2000 (= 4 janvier 2000).

À te lire pour savoir si ça a marché.  :)
 
0
belhokamel > Utilisateur anonyme
 
Bonjour albkan

J'ai vérifié tous les paramètres que tu m'as demandé. Panneau de configuration région et langue. Tout est parfait. J'ai même créé un nouveau userform pour tester les codes que tu m'as demandé. ça ne marche toujours pas. ça fait exactement la même chose (date jour et mois inversés). Et il ne reconnait pas le code "jj/mm/aaaa" il demande un débogage.
Merci de ton aide
0
Utilisateur anonyme > belhokamel
 
 
J'ai bien précisé dans mon message #6 que le format "jj/mm/aaaa" est pour
une cellule de la feuille de calcul, donc pas en VBA ! Car en VBA, c'est avec
des formats dont les lettres sont d pour day (= jour), m pour month (mois),
y pour year (année). Just some words in english !  ;)

Je pense que le message #8 d'eriiic t'apporte la bonne réponse. Cdlt.  :)
 
0
Utilisateur anonyme
 
Bonjour belhokamel,

Je te propose ces 2 choix :

TextBox1 = Format(Evaluate("=TODAY()"), "dd/mm/yyyy")
TextBox1 = Format(Now(), "dd/mm/yyyy")

Je te conseille le 2ème, bien plus court.

Les 2 affichent : 07/01/2017

Cordialement.  :)
-1