Problemes de date

ClemSintef

XLDnaute Nouveau
Bonjour,

J'ai le fichier excel en pj. Dans ma premiere colonne, ce sont des donnees brutes qui representent des dates avec des heures 19980101/04:00. J'ai ecrit une macro afin d'avoir une date au format correct. Ce que j'ai ecrit me renvoie bien 01.01.98 04:00 avec le format date.

Le probleme est que excel ne semble pas avoir pris le format date en compte. Lorsque je vais dans format, si je veux le format nombre qui devrait me donner qqchose comme 36000 pour cette date correspondante, excel me renvoie encore ma date.

La seule facon que j'ai trouve jusque la pour palier a ce probleme, c'est de mettre le curseur dans la cellule et d'appuyer sur entree. Mais je ne sais pas comment coder ca en vba et mon ficher a traiter fait 16000 lignes .

Merci par avance!
 

Pièces jointes

  • Book11.zip
    61.6 KB · Affichages: 15
G

Guest

Guest
Re : Problemes de date

Bonjour,

ta macro corrigée pour transformer en date:

Code:
Sub Macro4()
'
' Macro4 Macro
'
'
    Dim Start_data As Integer
   Start_data = 7
   Dim End_data As Integer
   End_data = 16
    Dim dte As Variant
   
   Dim i As Integer
   Dim dd As String
   Dim mm1 As String
   Dim yy As String
   Dim h As String
   Dim mm2 As String
  
    For i = Start_data To End_data
        dte = Replace(Cells(i, 1), "/", " ")
        dte = CDate(Mid(dte, 7, 2) & "/" & Mid(dte, 5, 2) & "/" & Mid(dte, 3, 2) & Right(dte, 6))
        With Cells(i, 1)
            .Value = dte
            .NumberFormat = "dd.mm.yy h:mm;@"
        End With
    Next i
        
End Sub

A+
 

Discussions similaires

Statistiques des forums

Discussions
312 749
Messages
2 091 647
Membres
105 012
dernier inscrit
mejdemej