Discussion :

[scoubi77]

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 :

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

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 :

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

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

[scoubi77]

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 :

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

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

[patricktoulon]

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

Code :

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

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

[scoubi77]

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

[patricktoulon]

re
essaie ca
.numberformat="@"

[scoubi77]

Merci je teste ce soir et te tiens au courant

[scoubi77]

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 ?

[patricktoulon]

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

[Jean-Philippe André]

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 :

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

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 :

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

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

tu peux simplifier ton raisonnement avec

Code :

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

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 :

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

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

[scoubi77]

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

[scoubi77]

Bonjour merci à vous deux,

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