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
 

Fichiers joints

Victor21

XLDnaute Barbatruc
Supporter XLD
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:

tvhabdo

XLDnaute Occasionnel
Hello Victor

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas