XL pour MAC Séparer Code Postal avec macro

[tvhabdo]

Bonjour a tous, le forum

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

Merci Pat

 

[Victor21]

Bonjour.

L'enregistreur me souffle :

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 :

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

 

[tvhabdo]

Hello Victor

Nickel , je l'ai adapté a mon fichier de travail et Tout fonctionne comme je le souhaite
Encore merci - Pat