Discussion :

[ChrisMaire]

Bonjour, j'ai une table avec dans une cellule des informations dont le nombre est variable et dont les valeurs sont séparées par des virgules; ce que je voudrais c'est pouvoir séparer les valeurs de ma colonne puis les transposer pour pouvoir ensuite travailler mes infos dans des tableaux croisés dynamique ...
Donc pour résumer voici ce que j'ai :

Cell1	Cell2	|Cell3
A	Val1, Val2	xx
B	Val1	yy
C	Val2, Val3, Val4	zz

je voudrais arriver à :

Cell1	Cell2	Cell3
A	Val1	xx
A	Val2	xx
B	Val1	yy
C	Val2	zz
C	Val3	zz
C	Val4	zz

Merci d'avance et bonne journée

[Jean-Philippe André]

Salut,

t'est-il possible de passer par du code VBA pour faire le traitement voulu ?

[ChrisMaire]

Oui sans problème

[Jean-Philippe André]

En passant par une boucle sur chaque ligne, tu peux avoir un traitement dans cette idée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim wshorig As worksheet
dim wshdest As worksheet
'choix des feuilles origine et destination
Dim j As Integer
j=1
For i=1 To 100 'bornes à définir
Dim v as Variant
v= Split(wshorig.Range("B"&i).value,",")
For k=LBound(v) TO Lbound(v)
wshdest.Range("A" & j).value =wshorig.Range("A"&i).value
wshdest.Range("B" & j).value =v(k)
wshdest.Range("C" & j).value =wshorig.Range("C"&i).value
Next k
Next i

[Invité]

Bonjour,

A tester et à adapter :

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
 
Option Explicit
 
Sub SpliterEtTransposer(ByVal FeuilleSource As Worksheet, ByVal FeuilleCible As Worksheet)
 
Dim MaChaine As Variant
Dim Cellule As Range
Dim DerniereLigne As Long, LigneCibleEnCours As Long
Dim I As Integer
 
        LigneCibleEnCours = 1
        With FeuilleSource
             DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
             For Each Cellule In .Range("A1:A" & DerniereLigne)
                 MaChaine = Split(Cellule.Offset(0, 1), ",")
                    For I = LBound(MaChaine) To UBound(MaChaine)
                        With FeuilleCible
                             .Cells(LigneCibleEnCours, 1) = Cellule
                             .Cells(LigneCibleEnCours, 2) = Trim(MaChaine(I))
                             .Cells(LigneCibleEnCours, 3) = Cellule.Offset(0, 2)
                             LigneCibleEnCours = LigneCibleEnCours + 1
                        End With
                    Next I
            Next Cellule
        End With
End Sub
 
Sub TestSpliterEtTransposer()
 
    SpliterEtTransposer Sheets("Source"), Sheets("Cible")
 
End Sub

[ChrisMaire]

Merci Messieurs .. je me mets au test !

J'ai adapté le code d'Éric et ça fonctionne parfaitement !

[ChrisMaire]

Et si je voulais merger les cellules de la premiere colonne, est-ce compliqué ?
Donc passer de :

Cell1	Cell2	|Cell3
A	Val1, Val2	xx
B	Val1	yy
C	Val2, Val3, Val4	zz

à

A	Val1	xx
	Val2	xx
B	Val1	yy
C	Val2	zz
	Val3	zz
	Val4	zz

Merci une nouvelle fois !