VBA qui inverse mes dates... pratique.

Résolu/Fermé
Rorodu42 - 28 août 2011 à 09:56
 Rorodu42 - 29 août 2011 à 16:20
Bonjour,

Encore un petit problème, le dernier j'espère !

J'ai un userform qui contient entre autres deux textbox où l'on doit rentrer les jours ( de 1 à 31 ) et les deux derniers chiffres de l'année ( 11, 12.. pour 2011, 2012... ) ; Grâce à la formule suivante, il me la met dans un tableau selon le mois :

Cells(Cells(Columns(1).Cells.Count, [DE_DF].Column).End(xlUp).Row + 1, [DE_DF].Column) = EFF_DJR & "/12/20" & EFF_DAN

EFF_DJR est la textbox des jours, et EFF_DAN celle de l'année, donc au final j'obtiens une date sous un format commun : jj/mm/aaaa

SAUF que j'ai remarqué, notamment en novembre et décembre ( mois 11 et 12 ) lorsque je veux saisir la date du 11 ou 12 novembre ou décembre ça m'inverse le numéros de mois et de jour ;

exple : je saisie le 11 décembre 2011, je me retrouve dans ma cellule avec 12/11/2011 ;

et je ne comprends pas... d'autant que si l'on saisie 25 ou 23 décembre là j'ai bien la même date...

any help please ?

Bonne journée et merci !

4 réponses

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 249
28 août 2011 à 10:11
Bonjour,

essaie avec ...= datevalue(EFF_DJR & "/12/20" & EFF_DAN )

eric
0
Bonjour,

ça ne marche pas.. :S

Même en inversant, c'est à dire en demandant qu'en telle cellule ça soit saisie sous la forme mm/jj/aaaa ça ne marche pas ; ( je parle de faire ça en vba, pas de modifier le format de cellule étant donné que au delà du 12ème jour du mois la date est saisie correctement )

désespérant
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 249
29 août 2011 à 15:06
Bonjour,

C'était bien du vba....
eric
0
cousinhub29 Messages postés 983 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 9 janvier 2025 348
29 août 2011 à 14:33
Bonjour,

essaie ainsi :

....= CDate(EFF_DJR & "/12/20" & EFF_DAN)


Bonne journée
0
Tout fonctionne !

Extra merci beaucoup !
0