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 40
| Dim Année As String
Dim Cellule As Range
Dim Chaîne As String
Dim Chaînette As String
Dim Compteur As Integer
Dim DateÉvénement As Date
Dim JourN As Integer
Dim Jour As String
Dim Lig_NumDernière As Integer
Dim MoisN As Integer
Dim Mois As String
For Each Cellule In Range("F2:F" & Lig_NumDernière)
'chaîne : nombre de caractères
Compteur = Len(Cellule)
'fin de chaîne : xxxxxxxx jj.mm.aa
If Mid(Cellule.Value, Compteur - 2, 1) = "." And Mid(Cellule.Value, Compteur - 5, 1) = "." _
Then
Année = Mid(Cellule.Value, Compteur - 1, 2)
MoisN = Mid(Cellule.Value, Compteur - 4, 2)
JourN = Mid(Cellule.Value, Compteur - 7, 2)
DateÉvénement = JourN & "/" & MoisN & "/" & Année
Range("A" & Cellule.Row).Value = DateÉvénement
Range("F" & Cellule.Row).Value = Left(Cellule.Value, Compteur - 9)
End If
'début de chaîne : jj/mm/aa xxxxxxxx
If Mid(Cellule.Value, 3, 1) = "/" And Mid(Cellule.Value, 6, 1) = "/" Then
Année = Mid(Cellule.Value, 7, 2)
MoisN = Mid(Cellule.Value, 4, 2)
JourN = Mid(Cellule.Value, 1, 2)
DateÉvénement = JourN & "/" & MoisN & "/" & Année
Range("A" & Cellule.Row).Value = DateÉvénement
Range("F" & Cellule.Row).Value = Mid(Cellule.Value, 18, Compteur)
End If |
Partager