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....

[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