Discussion :

[Sandrineboubou]

Bonjour,

Je suis très très intéressée par la réponse dans cette discussion car je suis confrontée au même problème !
Dans le fichier mis en PJ j'ai, dans la colonne K, des cellules avec des listes de magasins. Je souhaiterais éclater ces données, non pas sur les colonnes adjacentes mais sur des lignes adjacentes.

La réponse fournie me conviendrait parfaitement mais je ne sais absolument pas comment l'utiliser ...
Pourriez-vous me dire, pas à pas, comment faire ???

D'avance merci !

[Daniel.C]

Bonjour,

Mets cette macro dans un module standard et exécute-la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub test()
    Dim C As Range, Tabl, Plage As Range, Ligne As Long
    'on travaille avec la feuille "Feuil1"
    With Sheets("Feuil1")
        'on affecte à la variable "Plage" les cellules de la colonne A remplies
        'si tu ne comprendds pas cette ligne, dis-le
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    'on travaille avec la feuille "Feuil2" et avec "Plage" définie préccédemment
    With Sheets("Feuil2")
        'on boucle sur les cellules de Plage
        For Each C In Plage
            '"Split" renvoie un tableau de la cellule de la colonne K
            'tronçonnée en autant de morceaux qu'il y a de ","
            Tabl = Split(C.Offset(, 10), ";")
            'on traite chaque morceau, du premier au dernier
            .[A:C].NumberFormat = "@"
            For i = 0 To UBound(Tabl)
                Ligne = Ligne + 1
                .Range(.Cells(Ligne, 1), .Cells(Ligne, 10)).Value = C.Resize(, 10).Value
                .Cells(Ligne, 11) = Tabl(i)
            Next i
        Next
        .[K:K].EntireColumn.AutoFit
    End With
End Sub

[Sandrineboubou]

Merci pour la réponse et la rapidité !!!!
Cela m'aide ENORMEMENT !!!

[jtsfab]

bonjour,

j'aurais besoin de votre aide . J'ai trouver cette macro interessante mais en colonne K , mes données ne sont pas separées par des ; mais elles sont les unes en dessous des autres ( ALT +ENTER ) .

Pouvez vous m'aider a modifier la macro ?


Merci d'avance

[BENNASR]

bonjour
pour espérer de l'aide il est recommander d'ouvrir ton propre discussion, beaucoup d'amis n'ouvre pas une discussion déja RESOLU
ben pour commencer je suis aussi débutant mais pour ton cas je crois avec ce code tu supprime l'espace (Alt+entrée p)par un point virgule puis tu applique le code que tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
    Dim Cell As Range
    Dim Plage As Range
    Set Plage = Range("A2:A10")' à adapter
    For Each Cell In Plage
    Cells(Cell.Row, 2) = Replace(Cell.Value, Chr(10), ";")
    Next
End Sub

[mercatog]

Remplace ; par Chr(10)