[XL-2013] Split valeurs d'une cellule

Bonsoir,

Teste ceci, le résultat est en colonne D et E, si tu le veux en colonne A et B, il te suffit d'effectuer un remplacement de valeurs :

Code:

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
34
35
36
37
38
39
40
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Tbl
    Dim I As Integer
    Dim J As Long
 
    With Worksheets("Feuil1")
 
        'défini la plage en colonne A sur la feuille "Feuil1"
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
        'boucle sur les cellules de la plage
        For Each Cel In Plage
 
            'splite...
            Tbl = Split(Cel.Value, ",")
 
            'sur la même feuille en colonne D et E
            For I = 0 To UBound(Tbl)
 
                J = J + 1
                .Cells(J, 4) = Tbl(I)
                .Cells(J, 5) = Cel.Offset(0, 1).Value
 
            Next I
 
        Next Cel
 
        'redéfini la plage sur les colonnes D et E
        Set Plage = .Range(.Cells(1, 4), .Cells(.Rows.Count, 5).End(xlUp))
 
        'tri en ordre croissant
        Plage.Sort .Cells(1, 4), xlAscending
 
    End With
 
End Sub