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 41 42 43 44
| Sub decoupage()
Dim MyDate As Date
Dim MyDay(7) As String
Dim Donnee As String
MyDay(1) = "Monday"
MyDay(2) = "Tuesday"
MyDay(3) = "Wednesday"
MyDay(4) = "Thrusday"
MyDay(5) = "Friday"
MyDay(6) = "Saturday"
MyDay(7) = "Sunday"
Donnee = Cells(24, 22).Text 'Donnee=123457
MyLen = Len(Donnee) 'MyLen=6
For i = 1 To MyLen
If Mid(Donnee, i, 1) = "1" Then
Mid(Donnee, i, 1) = MyDay(1)
End If
If Mid(Donnee, i, 1) = "2" Then
Mid(Donnee, i, 1) = MyDay(2)
End If
If Mid(Donnee, i, 1) = "3" Then
Mid(Donnee, i, 1) = MyDay(3)
End If
If Mid(Donnee, i, 1) = "4" Then
Mid(Donnee, i, 1) = MyDay(4)
End If
If Mid(Donnee, i, 1) = "5" Then
Mid(Donnee, i, 1) = MyDay(5)
End If
If Mid(Donnee, i, 1) = "6" Then
Mid(Donnee, i, 1) = MyDay(6)
End If
If Mid(Donnee, i, 1) = "7" Then
Mid(Donnee, i, 1) = MyDay(7)
End If
Next i
End Sub |
Partager