1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Set Trouve = .Rows(1).Find("Exported Column", LookIn:=xlValues, LookAt:=xlPart)
If Not Trouve Is Nothing Then
.Columns(Trouve.Column + 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Trouve.Offset(0, 1).FormulaR1C1 = "=RC[-1]" 'Copie de l'entete de la colonne
'Formule bricolage
Trouve.Offset(1, 1).FormulaR1C1 = "=VALUE(IF(RC[-1]<>"""",CONCATENATE(MID(RC[-1],1,2),""/"",MID(RC[-1],4,2),""/"",MID(RC[-1],7,4)),""""))"
Trouve.Offset(1, 1).AutoFill Destination:=.Range(Trouve.Offset(1, 1), .Cells(.Rows.Count, Trouve.Column).End(xlUp).Offset(0, 1))
.Columns(Trouve.Column + 1).NumberFormat = "dd/mm/yyyy"
Application.Calculate
'suppression des formules
.Columns(Trouve.Column + 1).Copy
Trouve.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Columns(Trouve.Column).Delete
End If |
Partager