Discussion :

[NicolasMO]

J'ai un problème assez incompréhensible.
A l'ouverture d'une userform, la date s'inscrit toute seule dans un intitulé. Ca fonctionne très bien. A la cloture de la userform, cette date est stockée dans une cellule dans un onglet. Ensuite, elle ressort dans un autre onglet lorsque l'utilisateur en a besoin et là... elle a changé de format. Le format de départ européen (jj/mm/aaaa) s'en transformé en format anglo-saxon (mm/jj/aaaa). Du coup, le 12 septembre de départ devient le 9 décembre de la même année!!

Dans clique droit, format de cellule, je règle pourtant le format voulu mais ça change quand même tout seul.

Quelqu'un a déjà eu ce genre de problème?

[Solkien]

Il ressemble à quoi le code qui fait passer la date d'un onglet à l'autre ?

[Plateforme3]

Bonsoir
Je pense qu'il faut que tu formattes ta date dans ta cellule quand tu l'écris ou la transfère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(X,Y) = Format (Date, "JJ:MM:YYYY"

Slts

[ouskel'n'or]

A la cloture de la userform, cette date est stockée dans une cellule dans un onglet.

Comment stockes-tu ta date dans la cellule (le code) ?

[NicolasMO]

Voilà comment ça se passe:
La userform s'ouvre avec label1.text=worksheets("...").cells(1,1) avec la date du jour dans la cellule en question.
en cliquant sur OK de la userform, la date est stockée dans un autre onglet. Le formet de la cellule qui stock la date est du type 14-mars-01 avec dans l'appercu au dessus indiqué 09-déc-07 alors que la date d'enregistrement était le 12 septembre 2007.
Maintenant, on est passé au dessus du 12 du mois et tout est rentré dans l'ordre puisqu'il n'y a pas de 13ème mois!! Par contre, le problème va revenir au début du mois prochain.
J'espère que je vous ai donné assez d'indices.

[ouskel'n'or]

Tu as plusieurs possibilités
Pour lire la date dans ton txtbox, utilise cdate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaDate = cdate(Me.txtboxDate.text)

Et pour coller dans ta cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(NoLigne, NoCol).value = Format(LaDate,"dd/mm/yyyy") 'ou le format que tu veux

Ou plus simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(NoLigne, NoCol).value = Format(cdate(Me.txtboxDate.text),"dd/mm/yyyy")

Si toute la colonne contient des dates, formate de préférence la colonne plutôt que la date elle-même.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(NoLigne, NoCol).value = cdate(Me.txtboxDate.text)

Tu testes et tu nous dis