XL pour MAC Séparer Code Postal avec macro

tvhabdo

XLDnaute Occasionnel
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
 

Pièces jointes

  • code posta.xlsm
    39.1 KB · Affichages: 15

Victor21

XLDnaute Barbatruc
Bonjour.

L'enregistreur me souffle :
Code:
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
 
Dernière édition:

Discussions similaires

Réponses
4
Affichages
305

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510