Range("A1").NumberFormat = "dd/mm/yyyy" Range("A41").Value = Replace(Range("A1").Text, "-", "/")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFor I = 2 To nbLignes If InStr(1, UCase(ActiveSheet.Range("A" & I)), "AOU") > 0 Then ActiveSheet.Range("A" & I) = Right(ActiveSheet.Range("A" & I), 2) + 2000 & "-" & "08" & "-" & Left(ActiveSheet.Range("A" & I), 2) ActiveSheet.Range("A" & I).NumberFormat = "dd-mmm-yy" ElseIf InStr(1, UCase(Range("A" & I)), "FEV") > 0 Then ActiveSheet.Range("A" & I) = Right(ActiveSheet.Range("A" & I), 2) + 2000 & "-" & "02" & "-" & Left(ActiveSheet.Range("A" & I), 2) ActiveSheet.Range("A" & I).NumberFormat = "dd-mmm-yy" ElseIf InStr(1, UCase(Range("A" & I)), "DEC") > 0 Then ActiveSheet.Range("A" & I) = Right(ActiveSheet.Range("A" & I), 2) + 2000 & "-" & "12" & "-" & Left(ActiveSheet.Range("A" & I), 2) ActiveSheet.Range("A" & I).NumberFormat = "dd-mmm-yy" End If Next