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
| Function IdentificationDate()
Dim j As Integer
Dim jour As Integer
Dim mois As Integer
Dim année As Integer
Dim date_symbole As Date
Dim date_taper As Date
Dim date_reel As Date
j = 4
While Sheets("Programme").Cells(j, 2) <> ""
date_taper = Sheets("Programme").Cells(j, 2)
If Left(Sheets("Programme").Cells(j, 11), 1) = "&" Then
jour = Mid(Sheets("Programme").Cells(j, 11), 2, 2)
mois = Mid(Sheets("Programme").Cells(j, 11), 4, 2)
annee = Mid(Sheets("Programme").Cells(j, 11), 6, 2)
date_reel = jour & mois & annee
ElseIf Left(Sheets("Programme").Cells(j, 11), 1) = "%" Then
jour = Mid(Sheets("Programme").Cells(j, 11), 2, 2)
mois = Mid(Sheets("Programme").Cells(j, 11), 4, 2)
annee = Mid(Sheets("Programme").Cells(j, 11), 6, 2)
date_reel = jour & mois & annee
Else
date_reel = date_taper
End If
Sheets("Programme").Cells(j, 16) = date_reel
j = j + 1
Wend
End Function |
Partager