éclatement d'une cellule en plusieurs lignes

[PAYASS59]

Bonjour, je vais exposer mon problème.
Pour information je suis très loin de maitriser excel.


colonne A / colonne B / colonne C
titi / 2 / 1;2;3;4;5
titi / 4 / 6;7


Comment éclater tout ça pour qu'il me crée dans une autre feuille

titi /2/1
titi /2/2
titi /2/3
titi /2/4
titi /2/5
titi /4/6
titi /4/7

[White Mibu]

Bonjour,

teste le fichier ci-joint...

Voici la macro utilisée :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
 
Sheets("Feuil2").Range("A:C").Clear
 
NbRow = Range("A65536").End(xlUp).Row
 
For i = 1 To NbRow
    Sheets("Feuil1").Cells(i, 3).Replace What:=";", Replacement:="", LookAt:=xlPart
    j = Len(Cells(i, 3).Value)
    m = Sheets("Feuil2").Range("A65536").End(xlUp).Row
    For k = 1 To j
    Sheets("Feuil2").Cells(m + i + k - 2, 1).Value = Sheets("Feuil1").Cells(i, 1).Value
    Sheets("Feuil2").Cells(m + i + k - 2, 2).Value = Sheets("Feuil1").Cells(i, 2).Value
    Sheets("Feuil2").Cells(m + i + k - 2, 3).Value = Mid(Sheets("Feuil1").Cells(i, 3).Value, k, 1)
    Next
Next
 
Sheets("Feuil2").Select
 
End Sub

Tiens moi au courant !

Cordialement

[PAYASS59]

merci je vais jouer mon chiant ;-)

mais comment je peux adapter avec ça :

code_ent/code_ens/métier/jour_sem/plage_hor/eff_qua/ eff_sec
7011 4000 METIER1 1;2;3;4;5 matin 4 2
7011 4000 METIER2 1;2;3;4;5 après-midi 2 2

[White Mibu]

Nan tkt pas d'problèmes

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
Sub test()
 
Sheets("Feuil2").Rows("2:50").Clear
 
NbRow = Range("A65536").End(xlUp).Row
 
For i = 2 To NbRow
    Sheets("Feuil1").Cells(i, 4).Replace What:=";", Replacement:="", LookAt:=xlPart
    j = Len(Cells(i, 4).Value)
    m = Sheets("Feuil2").Range("A65536").End(xlUp).Row
    For k = 1 To j
    Sheets("Feuil2").Cells(m + k, 1).Value = Sheets("Feuil1").Cells(i, 1).Value
    Sheets("Feuil2").Cells(m + k, 2).Value = Sheets("Feuil1").Cells(i, 2).Value
    Sheets("Feuil2").Cells(m + k, 3).Value = Sheets("Feuil1").Cells(i, 3).Value
    Sheets("Feuil2").Cells(m + k, 4).Value = Mid(Sheets("Feuil1").Cells(i, 4).Value, k, 1)
    Sheets("Feuil2").Cells(m + k, 5).Value = Sheets("Feuil1").Cells(i, 5).Value
    Sheets("Feuil2").Cells(m + k, 6).Value = Sheets("Feuil1").Cells(i, 6).Value
    Sheets("Feuil2").Cells(m + k, 7).Value = Sheets("Feuil1").Cells(i, 7).Value
    Next
Next
 
Sheets("Feuil2").Select
 
End Sub

Voir fichier joint !

Cordialement

[PAYASS59]

super merci pour ton aide, je fais des tests dans la semaine.