Discussion :

[jeo13]

Bonjour a tous,

j'ai un souci dans une macro de formatage de fichier Excel de conversion de date. Lorsque j'essaie de changer par exemple 20080319 en 19-mar-08, cela me donne :

#############

y a til possibilité ce probleme de date via vba ?

Merci d'avance !

[ouskel'n'or]

En effet, pour Excel, 20080319 est un nombre ou un string mais certainement pas une date.
Tu ne dis pas où tu prends ta donnée et si c'est un string ou un nombre
Si c'est un nombre,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateLue = cstr(20080319)

Si c'est un string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateLue = "20080319"

Avec DateLue quelqu'elle soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
jour = Val(Right(DateLue, 2))
Mois = Val(Mid(DateLue, 5, 2))
an = Val(Left(DateLue, 4))
TaDate = Format(DateSerial(an, Mois, jour), "dd-mm-yyyy")
MsgBox TaDate

[jeo13]

Merci !

Alors effectivement, ici dans mon fichier excel les dates au format YYYYMMDD sont des nombres.

Mais mon but est de changer, lors du formatage toutes ces dates au format de type 19-Mar-08.

je fais une macro sur les opérations de formatage 'simple' et je vois pas comment intégrer les éléments que tu viens de me fournir...

[ouskel'n'or]

Tu mets mon code dans une boucle.
Je suppose que tes dates sont dans la colonne B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim cell as range, jour as string, mois as string, an as string
For each cell in Range("B1:B" & range("B65536").end(xlup).row)
     jour = Val(Right(Cell, 2))
     Mois = Val(Mid(Cell, 5, 2))
     an = Val(Left(Cell, 4))
     cell = Format(DateSerial(an, Mois, jour), "dd-mmm-yyyy")
Next

A+

[tomy7]

autre methode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim DateLue As String
  DateLue = Sheet1.Range("A1").Value
 
jour = Val(Right(DateLue, 2))
Mois = Val(Mid(DateLue, 5, 2))
an = Val(Left(DateLue, 4))
TaDate = Format(DateSerial(an, Mois, jour), "dd-mm-yyyy")
Sheet1.Range("B1").Value = TaDate
 
End Sub

[jeo13]

Merci beaucoup Ouskel ca marche!

Nickel ca marche!

Tomy je garde ta méthode dans un coin au cas ou je voudrais passer en format dd-mm-yyyy pour toutes mes dates

thanks