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