Problème de Dates dans un tableau avec changement de format

Bonsoir à tous,

Je rencontre un problème avec des dates de type dd/mm/yyyy qui se transforme après copie depuis un tableau dans une feuille sous la forme mm/dd/yyyy.

J’alimente un tableau de 4 colonnes et X lignes avec une boucle

Code:

---

1 2 3 4 5 6 7 8 9

ReDim Preserve tab_1(3, uv) tab_1(0, uv) = Feuil3.Range("AP" & i).Value tab_1(1, uv) = Feuil3.Range("I" & i).Value tab_1(2, uv) = Val(Feuil3.Range("K" & i).Value) tab_1(3, uv) = CDate(Feuil3.Range("B" & i).Value) ' colonne du tableau avec dates uv = uv + 1   Next

---

J'ai mis un Cdate mais rien n'y fait !


Après j'injecte dans une plage de cellules le tableau et la date se transforme.

Code:

---

tab_1(3, uv) = CDate(Format(Feuil3.Range("B" & i).Value, "dd/mm/yyyy"))

---

Quelqu'un aurait il une astuce pour corriger ça ?

Bien cordialement

J'ai parcouru pas à pas la constitution de mon tableau et la date s'inscrit sous le bon format !
donc la transformation se fait quand j'injecte mon tableau dans la feuille comme ceci

Code:

---

Feuil6.Range("A" & "1" & ":D" & uv) = Application.Transpose(tab_1)

---

re
bonjour
bien entendu que le format se remet il te faut mettre les cellules au bon format D ABORDS (numberformat)

Code:

---

1 2 3 4

with Feuil6.Range("A" & "1" & ":D" & uv) .numberformat="dd/mm/yyyy"'ou le format que tu veux .value= Application.Transpose(tab_1) end with

---

Bonsoir et merci pour cette aide,

Hélas j'ai toujours mon inversion malgré tout !
J'avais aussi pensé à cela, ce qui est étrange c'est que je part d'un format de date française et qu'il me le transforme en date us

re
essaie ca
.numberformat="@"

Merci je teste ce soir et te tiens au courant

Bonsoir à toi,

Je viens d'essayer avec "@" donc j'obtiens sur les dates qui posaient problème ceci :

43132
43191
43313
43344
43435
14/01/2018
17/01/2018
18/01/2018
23/01/2018
28/01/2018
43344
43405
43405
13/01/2018


la première série de chiffre est inversée soit en forma us

01/02/2018
01/04/2018
01/08/2018
01/09/2018
01/12/2018

donc certaines sont en fr et celles qui sont des chiffres sont en us

A y perdre son latin !

Une idée ?

dernier recour le format salvateur
il me semble que c'est numberformat "d/m/yyyy"a appliquer toujour avant l'injection du tableau
apres il me faudrait ton sheets pour que je fasse d'autre tests

Salut,

ca fait beaucoup de choses qu'on peut simplifier...

Ta cellule excel contient une valeur de type date, alors pourquoi vouloir faire une modification et ne pas passer directement par

Code:

---

1 2 3 4 5 6 7

ReDim Preserve tab_1(3, uv) tab_1(0, uv) = Feuil3.Range("AP" & i).Value tab_1(1, uv) = Feuil3.Range("I" & i).Value tab_1(2, uv) = Val(Feuil3.Range("K" & i).Value) tab_1(3, uv) = Feuil3.Range("B" & i).Value ' colonne du tableau avec dates uv = uv + 1 Next

---

43132 n'es rien d'autre que le nombre de jours passés depuis le 01/01/1901...

La valeur intrinsèque de ta cellule doit rester la même, tu dois possiblement changer ton format d'affichage, mais la valeur ne doit pas être modifiée.

Tu pourras d'ailleurs constater qu'à la place de

Code:

---

Feuil3.Range("B" & i).Value 'qui te donnera effectivement la date

---

tu peux simplifier ton raisonnement avec

Code:

---

Feuil3.Range("B" & i).Value2 'qui te donnera la valeur numérique qui correspond à ta date

---

le reste de ton code n'étant pas à modifier

Code:

---

Feuil6.Range("A" & "1" & ":D" & uv) = Application.Transpose(tab_1)

---

Bonjour à vous deux,

Toutes mes excuses pour ce retard de réponse, j'étais en déplacement pro.
Je regarde demain et je vous tiens au courant.

Un grand merci à vous deux

Bonjour merci à vous deux,

avec value2 c'est bon je n'ai plus de soucis de date, encore merci