1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
' Définir la plage à bosser, ici la colonne I par exemple
' Formatage des dates
For Each cell In maplage.Cells
cell.NumberFormat = "dd/mm/yyyy;@" ' Reformatage
If Not IsEmpty(cell.Value) Then ' Si la cellule n'est pas vide
madate = cell.Value
madate = Trim(madate) ' Nettoyage d'éventuels espaces excédentaires
madate = Replace(madate, " Jan ", "/01/") ' Table de correspondance entre les
madate = Replace(madate, " Feb ", "/02/") ' mois abrégés US -> numéro de mois
madate = Replace(madate, " Mar ", "/03/")
madate = Replace(madate, " Apr ", "/04/")
madate = Replace(madate, " May ", "/05/")
madate = Replace(madate, " Jun ", "/06/")
madate = Replace(madate, " Jul ", "/07/")
madate = Replace(madate, " Aug ", "/08/")
madate = Replace(madate, " Sep ", "/09/")
madate = Replace(madate, " Oct ", "/10/")
madate = Replace(madate, " Nov ", "/11/")
madate = Replace(madate, " Dec ", "/12/")
madate = Replace(madate, "January ", "01/01/") ' Table de correspondance entre les
madate = Replace(madate, "February ", "01/02/") ' mois complets US -> numéro de mois
madate = Replace(madate, "March ", "01/03/")
madate = Replace(madate, "April ", "01/04/")
madate = Replace(madate, "May ", "01/05/")
madate = Replace(madate, "June ", "01/06/")
madate = Replace(madate, "July ", "01/07/")
madate = Replace(madate, "August ", "01/08/")
madate = Replace(madate, "September ", "01/09/")
madate = Replace(madate, "October ", "01/10/")
madate = Replace(madate, "November ", "01/11/")
madate = Replace(madate, "December ", "01/12/")
madate = CDate(madate) ' conversion du résultat au format Date préféré
If IsDate(madate) = True Then madate = Format(madate, "dd/mm/yyyy;@", vbMonday)
cell.Formula = madate
Else
' on ignore le contenu
End If
Next cell |
Partager