Format de date non conservé par ma macro

[falafala]

Bonjour à tous,


J'ai une colonne dans un onglet (onglet Données) que je souhaite copier ligne par ligne dans un autre onglet (onglet Traitements).

J'ai donc utilisé une macro avec une boucle For comme indiqué ci dessous:

For ligne = 2 To nb_lignes

With Sheets("Traitements")
    
        
        '***************** Heure d'arrivée *****************
               
        .Range("T_Heurearrivee").Offset(ligne - 1, 0).Value = Sheets("Données").Range("D_Heurearrivee").Offset(ligne - 1).Value

End With

T_Heurearrivee correspond à l'étiquette de la colonne où je souhaite copier les données
D_Heurearrivée correspond à l'étiquette de la colonne dont je souhaite copier les données.

Dans mon onglet Données, les heures au format : 01/02/2007 15:57 (Pour le premier février)

Or ma macro va me le copier sous le format 02/01/2007 15:57 et du coup lorsque je veux utiliser cette donnée, ca me fausse tout (il croit que c'est le 2 janvier).

Est ce que quelqu'un peut m'aider??

Je vous remercie d'avance

 

[Pierrot93]

Re : Format de date non conservé par ma macro

Bonjour Falafala

essaye peut être comme ci dessous :

.Range("T_Heurearrivee").Offset(ligne - 1, 0).Value = CDate(Sheets("Données").Range("D_Heurearrivee").Offset(ligne - 1).Value)

a tester dans ta configuration
@+

 

[falafala]

Re : Format de date non conservé par ma macro

Ca à l'air de marcher.

Merci beaucoup!!!