VBA qui inverse mes dates... pratique.
Résolu
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 !
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
-
ContributeurBonjour,
essaie avec ...= datevalue(EFF_DJR & "/12/20" & EFF_DAN )
eric -
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 -
Bonjour,
essaie ainsi :
....= CDate(EFF_DJR & "/12/20" & EFF_DAN)
Bonne journée -
Tout fonctionne !
Extra merci beaucoup !
