Modif Format Date.

NICOALBERT

XLDnaute Occasionnel
Bonjour le forum ,

J'ai un petit soucis de format de date dans 3 colonnes .

Je me retrouve avec des formats mmm:aa ou des formats jj:mmm.

j'aimerais qu'avec une macro tous les formats mmm:aa deviennent mm:aa et que les formats jj:mmm deviennent jj:mm dans les colonnes I:K .

Je vous joint un bout de fichier que j'utilise.

Cdlt Nicoalbert .
 

Pièces jointes

  • Convertion date.xls
    358.5 KB · Affichages: 31

pierrejean

XLDnaute Barbatruc
Bonjour NICOALBERT

A tester:
Code:
Sub test()
Set c = Range("I2:K" & Range("I" & Rows.Count).End(xlUp).Row)
For Each cel In c
  If IsDate(cel) Then
    If cel.NumberFormat = "d-mmm" Then cel.NumberFormat = "dd-mm"
    If cel.NumberFormat = "mmm-yy" Then cel.NumberFormat = "mm-yy"
  End If
Next
End Sub
Qui devrait correspondre a ta demande mais qui me semble aboutir a des imprécisions
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 206
Messages
2 086 207
Membres
103 157
dernier inscrit
youma