Bonjour a tous,
J'ai une colonne de dates ou les dates sont (apres import d'un fichier texte) ecrites selon deux formats:
- soit 16/01/2008 00:00:00
- soit 38413
Mon but est de reformater via vba pour arriver a un format du type 16-Jan-08.
J'ai un début de code pour le premier cas:
qui ne marche meme pas pour le premier type...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Dim cell As Range, jour As String, mois As String, an As String For Each cell In Range("A2:A" & Range("A65536").End(xlUp).Row) If Len(cell) = 19 Then jour = Val(Left(cell, 2)) mois = Val(Mid(cell, 5, 2)) an = Val(Mid(cell, 7, 4)) cell = Format(DateSerial(an, mois, jour), "dd-mmm-yyyy") End If If Len(cell) = 5 Then End If Next
et je ne vois pas comment faire pour l'autre format
Pourriez-vous me guider?
Merci d'avance !
Partager