Séparer les données d'une cellule sur plusieurs cellule

[siva]

Boujour à vous,

j'ai une feuille de calucle RECAP où se trouve les données sur plusieurs lignes dans la colonne A. Chauque cellule comporte Nom, Adresse, Code postal et ville dans une même cellule. Je souhaite les séparer sur trois colonne. C'est à dire
en B : les noms
en C : l'adresse
en D : code postal et ville

mercie d'avance

 

[Modeste]

Re : Séparer les données d'une cellule sur plusieurs cellule

Bonsoir siva,

Avec l'exemple que tu nous a livré et les explications fournies, difficile de bien comprendre ce que tu veux (mais aussi ce qui serait amené à changer d'une fois à l'autre)

Un essai donc avec le code ci-dessous (basé sur ton propre code)

Sub Macro1()
Application.ScreenUpdating = False

With Sheets("RECAP")
    .Rows("3:" & .Range("A65535").End(xlUp).Row + 2).Delete

    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "RECAP" Then
            'et ce sera toujours la plage de A3 à A22!?
            Sheets(i).Range("A3:A22").Copy _
                Destination:=.Range("A" & .Range("A65535").End(xlUp).Row + 2).Resize(21, 1)
        End If
    Next i
    .Rows("3:" & .Range("A60000").End(xlUp).Row).RowHeight = 55
    For i = .Range("A65535").End(xlUp).Row + 1 To 3 Step -2
        .Rows(i).Delete
    Next i
    .Range("A3:A" & .Range("A" & Rows.Count).End(xlUp).Row).TextToColumns _
        Destination:=.Range("A3"), DataType:=xlDelimited, other:=True, otherchar:=Chr(10), ConsecutiveDelimiter:=True

End With

Application.ScreenUpdating = True
End Sub

Vois ce que ça donne et dis-nous ...

 

[phlaurent55]

Re : Séparer les données d'une cellule sur plusieurs cellule

Bonjour siva, Modeste

pourquoi multiplier les posts pour un même sujet
alors que la réponse est ici au post #7
https://www.excel-downloads.com/threads/regrouper-plusieur-feuille-de-calcule-en-une-feuille.182653/

et je crains qu'on ne puisse mieux faire étant donné le "désordre" dans les cellules

à+
Philippe

 

[Modeste]

Re : Séparer les données d'une cellule sur plusieurs cellule

Salut Philippe 🙂

Désolé, pas vu l'autre discussion! 😱

PS: dis, tu y passes une partie de tes nuits, sur ton tour à bois!? Je devrais être dans ton coin mi-mai ... si jamais tu fais une exposition ... au soleil, si ça se trouve!

 

[siva]

Re : Séparer les données d'une cellule sur plusieurs cellule

Bonour Philippe et phlaurent55,
me voilà encore, je suis nouveau sur ce site et je débute, je ne sais pas manipuler c'est pour ça qu'il y a deux demandes pour un même sujet. Par contre j'ai besoin d'un autre aide. J'ai un fichier qui contient 6000 lignes, chaque cellule de la collen A contient le nom et le prénom séparés par des espaces. Je souhaiterais séparé le nom dans la colonne B et le prénom dans la colonne C puis la date de naissance en D, l'adresse en colonne E, le code postal et ville dans la colonne F. Et également pourra-t-on mettre le prénom en miniscule. J'ai besoin de votre aide.
Voir le fichier en PJ.

Merci d'avance

SIVA