Discussion :

[nefertari]

Bonsoir

J'ai créer une application sous excel, donc j'ai plusieurs objects dont des textbox.

Dans certains textbox, je saisie des dates puis je l'ai copie dans une autre feuille.

Code :

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

1
2
 
Sheets(Gx_Visualisation).Cells(Gx_ligne_Selectionner, 7) = Format(TBox_DateRecep1.Value, "DD/MM/YYYY")

Mon problème est que lorsque la date est inférieur ou égal à 12, excel me transforme ma date en MM/DD/YYYY.

exemple : 12/04/2007 devient 04/12/2007

J'ai vérifier que mon format de cellule etait correcte et surtout que j'utilisais le bon paramètres régionaux.

Comment puis-je imposer mon format ?

Merci par avance de votr aide

[House MD]

Essaie :

Code :

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

Sheets(Gx_Visualisation).Cells(Gx_ligne_Selectionner, 7)=Format(TBox_DateRecep1.Value, "[$-40C]dd/mmmm/yyyy;@")

En fait, lorsque tu mets les Mois en abrégé (de type MM versus MMMM, Excel a tendance à appliquer le format anglo-saxon...)

[ucfoutu]

Bonjour,

je ne voudrais pas me faire taper dessus...

Excel réagit quelquefois de façon dictaroriale et il faut alors se rebeller ...

Ce qui est dit en ce qui concerne ses manies de transformer dd/mm/yyyy en mm/dd/yyyy est vrai.

Passons maintenant le mm en majuscules (et lui seul...tout le reste étant laissé en minuscules) ==>> exemple d'envoi dans une cellune de ce qui a été frappé dans une textbox :

Code :

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

format(Userform.Textbox1, "dd/MM/yyyy")

essayons.....

[fred65200]

bonjour

as tu essayé

Code :

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

Sheets(Gx_Visualisation).Cells(Gx_ligne_Selectionner, 7) = CDate(TBox_DateRecep1.Value)

cordialement

[nefertari]

Merci de votre aide, en mettant cdate, j'ai le bon format.