Discussion :

[Mimosa777]

Salut a tous,

j'aimerais savoir comment faire a l'aide d'une macro pour separer le contenu d'une cellule dans une colonne contenant des virgules en plusieurs lignes.

Exemple :
Colonne A |Colonne B
Animal | Lapin, Lion, Chat, Chien
Voiture | Audi, BMW
Fruits | Pomme

Resultats:

Colonne A | Colonne B
Animal | Lapin
Animal | Lion
Animal | Chat
Animal | Chien
Voiture | Audi
Voiture | BMW
Fruits | Pomme

Merci de votre aide d'avance

[ZebreLoup]

Voici un code qui fait ce que tu veux. J'ai essayé de le commenter pour que tu puisses l'adapter à ton problème précis.

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
27
28
29
30
31
32
33
Option Explicit
 
Public Sub SeparationEnLignes()
    Dim feuilleSource As Worksheet
    Dim feuilleCible As Worksheet
    Dim iSource, iCible, i As Integer
    Dim currentA, currentB As String
    Dim currentSplit() As String
 
    Set feuilleSource = Worksheets("Feuil1") 'A modifier, la feuille contenant les données originales
    Set feuilleCible = Worksheets("Feuil2") 'A modifier, la feuille où l'on veut le résultat
 
    'Initialisation des compteurs de lignes
    iSource = 1
    iCible = 1
 
    Do While feuilleSource.Cells(iSource, "A").Value <> "" 'Tant qu'il y a qq chose en colonne A
        currentA = feuilleSource.Cells(iSource, "A").Value
        currentB = feuilleSource.Cells(iSource, "B").Value
 
        'On décompose la chaine par les virgules
        currentSplit = Split(currentB, ",")
 
        'Pour chaque élément, on l'écrit dans la feuille cible
        For i = 0 To UBound(currentSplit)
            feuilleCible.Cells(iCible, "A").Value = currentA
            feuilleCible.Cells(iCible, "B").Value = LTrim(currentSplit(i)) 'En enlevant les espaces à gauche
            iCible = iCible + 1
        Next i
 
        iSource = iSource + 1
    Loop
End Sub

[Mimosa777]

Merci enormement ZebreLoup.. Je suppose que si je souhaite les separer dans differentes colonnes au lieu des differentes lignes, ce code est adaptable ? Je vais essayer cela.

Merci encore

[ZebreLoup]

Si tu veux mettre ça en colonne, il y aura encore plus simple, la fonction de conversion d'Excel (sous 2003 : Données -> Convertir...) ou son équivalent vba TextToColumns

[Mimosa777]

Merci enormement