Problème de paramétrage de la date

Fermé
belhokamel Messages postés 2 Date d'inscription samedi 7 janvier 2017 Statut Membre Dernière intervention 8 janvier 2017 - 7 janv. 2017 à 19:19
 Utilisateur anonyme - 10 janv. 2017 à 20:23
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é.

4 réponses

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
9 janv. 2017 à 09:21
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
9 janv. 2017 à 15:06
[A1] = DateValue(date_texte)
0
belhokamel Messages postés 2 Date d'inscription samedi 7 janvier 2017 Statut Membre Dernière intervention 8 janvier 2017
8 janv. 2017 à 07:06
Merci albkan

Je vais essayer tes codes et je te tiendrai au courant.
0
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
8 janv. 2017 à 14:03
 
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
8 janv. 2017 à 19:22
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
8 janv. 2017 à 22:06
 
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
9 janv. 2017 à 08:57
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
Modifié par albkan le 9/01/2017 à 15:19
 
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
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