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
 

Discussions similaires


Haut Bas