Discussion :

[Jeanvaljean44]

le forum!


Nouveau petit souci, j'ai constaté que l'une de mes macros me modifiait le format d'une date. Donc, j'ai par conséquent forcé le format de cette date comme suit : dd/mm/yyyy. Et rien n'y fait

Code :

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

Encours.Sheets("EncoursAtelier").Range("D" & NumLigneOF & "") = Format(DateLivraison, "DD/MM/YYYY")

Quoi faire d'autre????

[Gorfael]

Salut Jeanvaljean44 et le forum

Code :

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

Encours.Sheets("EncoursAtelier").Range("D" & NumLigneOF & "") .NumberFormat = "ddd/mmmm/yyyy"

C'est le format de la cellule qu'il faut définir, pas celui de la date (quoique ça ne mange pas de pain
A+

[JackOuYA]

bonsoir ,

Jeanvaljean44

je suis pas sur que la solution à Gorfael, résolve ton probléme alors au cas où une question, déjà de quelle maniére sont modifiée tes dates ? et dans ton code quelles sont les opérations effectuées sur ces dates ?

[Jeanvaljean44]

Salut Gorfae!

Pour ce qui est du format de cellule, pas de soucis j'ai bien pris la précaution de le mette au format date souhaité c'est à dire dd/mm/yyyy.

Salut JackOuYA!

En fait ma date est récupérée à l'origine via un calendar renseignant une textBox située dans une Frame.
Ensuite j'associe la valeur de la textbox à ma variable datelivraison définit dans mes options explicit.
Et c'est seulement quand je souhaite copier datelivraison dans une cellule d'un calsseur EXCEL qui m'inverse le jour et le moi, seulement et seulement si le moi =< 12.

Or en forçant mon format volontairement à mm/dd/yyyy il me met ma date au bon format : dd/mm/yyyy. mais c'est pas carré tout ça!!!!

De plus mes paramètres régionaux de mon PC sont OK

[jonathanoudelet]

J'ai pas de solution à ton problème, mais juste une alternative...
Regardez le topic "problème avec mon calendar"...j'ai exactement le même souci.
Ma solution, mettre tout en version US et insérer le code suivant afin d'inverser les dd et mm:
(pensez à changer la feuille et les colonne...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 'pour convertir en format francais
Application.ScreenUpdating = False
Dim Cellule_en_Cours
 
For Each Cellule_en_Cours In Feuil3.Range("G2:I3000")
If Not (Cellule_en_Cours.FormulaR1C1 = "") Then
With Cellule_en_Cours
.Value = DateValue(Mid(.Value, 1, 2) & "/" & Mid(.Value, 4, 2) & "/" & Mid(.Value, 7, 4))
.NumberFormat = "dd/mm/yyyy"
End With
End If
Next Cellule_en_Cours
Range("I" & i).Select
Application.ScreenUpdating = True

[Gorfael]

Salut Jeanvaljean44 et le forum
Ton Excel est bien Français, ainsi que tes options régionales ?
Une fois que ta copie est "mauvaise", quel est le type de format de la cellule ?
A+

[Jeanvaljean44]

Bonsoir Gorfael!

J'ai bien unbe version EXCEL en Français, mes paramètres régionaux OK!

et mon format de cellue reste bien : dd/mm/yyyy....

[ucfoutu]

Bonjour,

tout celà est étrange... sauf si ....

Je voudrais simplement que tu lances ton appli, entres une date, fasses un copier de ce que tu as dans ta textbox et nous montres ici le résultat (par coller), en nous précisant la date choisie au départ.

[JackOuYA]

Bonsoir,


jean..

je comprends pas tout dans tes explication cela veut dire quoi :

Ensuite j'associe la valeur de la textbox à ma variable datelivraison définit dans mes options explicit.

ta variable datelivraison, est t'elle de type date ?

[nat44]

Bonsoir,

essaie de remplacer

Code :

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

 "dd/mm/yyyy"

Par

Code :

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

"m/d/yyyy"

dans ta macro

J'ai moi aussi rencontré ce problème d'inversion mois/jours avec le format "dd/mm/yyyy" et je l'ai résolu avec le format que je te propose et qui m'affiche bien jj/mm/aaaa dans ma cellule.

Nat

[AlainTech]

A toutes fins utiles, sachez que la fonction CDate() utilise le format Local.

Autrement dit, une String au format "dd/mm/yyyy", sur un PC en français, sera convertie en une date correcte pouvant être placée telle quelle dans une cellule Excel.

Code :

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

Encours.Sheets("EncoursAtelier").Range("D" & NumLigneOF & "") = CDate(DateLivraison)

[Pierre Fauconnier]

Bonjour

Il faut noter que

Code :

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

format(MaDate, "...")

renvoie une chaine de caractères...

Personnellement, si je dois gérer un cas pareil sur base d'une saisie dans un textbox, je vais faire en sorte que la valeur récupérée du textbox soit d'abord convertie en date, puis je la placerai dans ma cellule, quel que soit le format de celle-ci.

Si la date du textbox est saisie sous la forme jj/mm/aa, j'aurai

Code :

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

1
2
3
    Dim MaDate As Date
 
    MaDate = DateSerial(Right(TextBox1.Value, 2), Mid(TextBox1.Value, 4, 2), Left(TextBox1.Value, 2))

[Jeanvaljean44]

Bonjour à tous....

Je tiens déjà à vous remercier pour votre collaboration...car ça m'a permis d'avancer énormément sur le sujet....

Après tous les idées propsées une fonctionne très bien à savoir :

Code :

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

Encours.Sheets("EncoursAtelier").Range("D" & NumLigneOF & "") = CDate(DateLivraison

Encore merci AlainTech...

@+

Jeanvaljean44