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
| Sub essai()
Dim Mois1 As String, Jour2 As String
'si l'année est sur 4 chiffres et la constante sur 1 chiffre, ton numero en A1
'en A1, j'ai tapé "5201205221288"
With Sheets("feuil1") 'remplacer nom de ta feuille
If Left(Right(.Range("A1"), 8), 2) < "01" Then
Mois1 = "01"
ElseIf Left(Right(.Range("A1"), 8), 2) > "12" Then
Mois1 = "12"
Else
Mois1 = Left(Right(.Range("A1"), 8), 2)
End If
If Left(Right(.Range("A1"), 6), 2) < "01" Then
Jour2 = "01"
ElseIf Left(Right(.Range("A1"), 6), 2) > "31" Then
Jour2 = "31"
Else
Jour2 = Left(Right(.Range("A1"), 6), 2)
End If
MsgBox Mois1 & " " & Jour2
.Range("A1") = code & Mois1 & Jour2 & num
End With
End Sub |
Partager