Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problemes de date

  • Initiateur de la discussion Initiateur de la discussion ClemSintef
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

ClemSintef

Guest
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

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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
Réponses
2
Affichages
779
D
  • Question Question
Réponses
3
Affichages
828
L
Réponses
2
Affichages
865
lolo_76
L
K
  • Question Question
Réponses
1
Affichages
531
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…