Séparer les données d'une colonne en 2

[Lex O'Mil]

Bonjour à toutes et à tous,

J'ai un tableau dans lequel la première colonne contient des numéros etuméro et l'appellation associé aux numéros, ceci sur plusieurs centaines de lignes
Du genre : 11111 Employé/employée de ménage à domicile

J'aimerai sélectionner uniquement le numero, qui ne fait que 5 chiffres et le coller sur une autre colonne a coté de la première.

Puis supprimer le chiffre de la première colonne le supprimer

Passer d'une colonne 11111 Employé/employée de ménage à domicile
à 2 colonnes 11111 Employé/employée de ménage à domicile

ceci sur toutes les lignes dont le nombre est variable.

Pourriez-vous me donner un coup de main pour bâtir la macro?

Merci de m'avoir lu jusqu'au bout

PS je joint le fichier

 

[CBernardT]

Re : Séparer les données d'une colonne en 2

Bonjour Lex O'Mil,

Une colonne en plus et utilisation du menu Données/Convertir.

Cordialement

Bernard

 

[JYLL]

Re : Séparer les données d'une colonne en 2

Bonjour Lex O'Mil,
tu inséres une colonne entre les colonne A et B, tu sélectionnes la colonne A et tu vas dans le menu 'Données" puis dans "Convertir" tu coches "largeur fixe" et tu cliques sur "suivant". tu descends un peu l'assenceur pour voir les données et tu cliques juste après la régle où il y a le premier espace et enfinsur terminer. tu réponds oui à la question pour la colonne destination, c'est pour cela qu'il faut inserer une colonne vide avant.
Bon test.
Amicalement.
jean-Yves

 

[porcinet82]

Re : Séparer les données d'une colonne en 2

Salut Lex, Jyll, re CBernardT,

Comme tu demandais une macro, en voici une, meme si les solutions deja présentées sont tout aussi efficace :

Sub test()
Dim i&
Columns("B:B").Insert
For i = 8 To Range("A65536").End(xlUp).Row
    Cells(i, 2).Value = Mid(Cells(i, 1).Value, 7, Len(Cells(i, 1).Value))
    Cells(i, 1).Value = Left(Cells(i, 1).Value, 5)
Next i
End Sub

@+

 

[Lex O'Mil]

Re : Séparer les données d'une colonne en 2

Merci à tous!!!!🙂 🙂 🙂 🙂