[VBA-EXCEL] format de date lors d'écriture dans une cellule

Version imprimable

06/02/2007, 16h41
ustilago

[VBA-EXCEL] format de date lors d'écriture dans une cellule

Hello,

Je m'arrache les cheveux ... je récupère des infos dans un fichier texte que je recopie ensuite dans une feuille de calcul EXCEL.

Au début, j'ai une fonction qui me transforme une date 01/01/07 en "01 jan 2007", avec comme format défini à l'avance dans ma feuille excel "jj mmm aa" pour que ça s'affiche correctement : ça marchait pour décembre 2006, janvier 2007 mais pas pour février !!!! Là ça m'affiche royalement dans ma cellule "01 févr 2006" mais sans prendre ça comme une date, et si je positionne mon curseur sur la cellule et que je fait entrée, là il me le reconnaît comme une date :aie:

Je me dit tant pis, je passe la valeur dans ma cellule avec le format :

Code:

Cells(ligne, ColDate).Value = Format(recodeDate2(TableauLigne(4)), "dd/mm/yyyy")

Et là, merveille de technologie, recodeDate2 = 01/02/2007 et la valeur affichée dans ma cellule est : 02/01/2007 :arf:

Donc franchement je sèche, si quelqu'un à une piste pour résoudre ces problèmes de date, je suis preneur.

Usti
06/02/2007, 16h55
cafeine

Hello,

Format() renvoie un texte, ça n'invite pas Excel à considérer ça comme une date.

Regarde du côté de .NumberFormat (qui est une méthode de Range)
06/02/2007, 17h02
ouskel'n'or

Je ne me souviens plus qui m'a appris ça

Code:

Cells(ligne, ColDate).Value = Format(cdbl(recodeDate2(TableauLigne(4))), "dd/mm/yyyy")

... mais si les éléments récupérés "ressemblent" à des dates, ça fonctionne très bien :mouarf:
06/02/2007, 17h44
ustilago

Citation:

Envoyé par ouskel'n'or

Je ne me souviens plus qui m'a appris ça

Code:

Cells(ligne, ColDate).Value = Format(cdbl(recodeDate2(TableauLigne(4))), "dd/mm/yyyy")

... mais si les éléments récupérés "ressemblent" à des dates, ça fonctionne très bien :mouarf:

C'était presque ça ... et effectivement je n'avait pas réussi à trouver comment spécifier le format de la valeur que je passait :

Code:

Cells(ligne, ColDate).Value = Format(CDate(recodeDate2(TableauLigne(4))), "mm/dd/yyyy")

C'est tout à fait logique : mon environnement XP est paramétré en "français", donc en date jj/mm/aa, les cellules de ma feuille excel ont comme format "jj mmm aa", la valeur que je veux mettre dans ma cellule est "01/02/07", et il faut préciser comme format ... "mm/dd/yyyy" :yaisse: :mouarf3:

Enfin, comme ça ça marche, merci à vous :)

Sinon cafeine, ta solution ne m'a pas avancé, c'est déjà le format qu'il y avait dans ma cellule ;), mais merci quand même d'avoir essayé de m'aider :ccool:

Usti