Avec une macro que je puisse la copier coller au bout de mon fichier de travail
Colonne E copier le code postal et le coller en Colonne F
Colonne E copier la ville et la coller en colonne G
Supprimer la colonne E
Ou faire plus simple, si vous le souhaitez..!! mais avec un eMacro
Sub Macro1()
'
' Macro1 Macro
'
'
Columns("E:E").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(5, 1)), TrailingMinusNumbers:=True
Selection.Delete Shift:=xlToLeft
End Sub
Reste à nettoyer :
Code:
Sub Macro1()
With Range("E:E")
.TextToColumns Destination:=Range("F1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(5, 1)), TrailingMinusNumbers:=True
.Delete Shift:=xlToLeft
End With
End Sub