Discussion :

[Toresupra]

Bonjour à tous,

Je rencontre un soucis et j'ai besoin de vos lumières. Je n'arrive pas à passer, dans une feuille de calcul de :

	A	B
L1	a	x1, x2
L2	b	x3
L3	c	x4, x5, x6

au résultat suivant :

	A	B
L1	a	x1
L1'	a	x2
L2	b	x3
L3	c	x4
L3'	c	x5
L3'	c	x6

Sachant que le fichier comporte plusieurs centaines de lignes, je ne sais pas comment m'y prendre.

Merci pour votre aide.

[antonysansh]

Bonjour Toresupra,

Voilà un petit code qui fait la manip sur ton exemple :

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
Sub test()
    'Variable de la dernière ligne à traiter
Dim derniere_ligne As Long
derniere_ligne = ActiveSheet.[A1].End(xlDown).Row
    'Déclaration des variables de boucles er d'indice de tableau
Dim i As Long: Dim j As Long: Dim longueur_tab As Long: Dim t() As String
    'Boucle décrémenté (step -1) pour monter dans les lignes en insérant vers le bas sans changer le dessus
For i = derniere_ligne To 1 Step -1
    t = Split(Cells(i, 2).Value, ", ")
    If UBound(t) = 0 Then
        'rien car une valeur donc une seule ligne et pas de copie à faire
    Else
        Cells(i, 2).Value = t(0)
        For j = 1 To UBound(t)
            Rows(i + j - 1).Copy
            Rows(i + j - 1).Insert Shift:=xlDown
            Application.CutCopyMode = False
            Cells(i + j, 2).Value = t(j)
        Next j
    End If
Next i
 
 
End Sub

Petites précisions :
J'ai supposé que dans ta colonne à spliter le séparateur est ", " (virgule suivi d’espace)
J'ai placé ton exemple dans la plage [A1:B3] donc certains indice de colonne sont en dur dans mon code.

Tu as juste à adapter

[antonysansh]

Sachant que le fichier comporte plusieurs centaines de lignes, je ne sais pas comment m'y prendre.

Oublié un truc important :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test
 
Application.ScreenUpdapting = false 'en debut de code
 
    'tout le code
 
Application.ScreenUpdapting = true 'en fin de code
 
End sub

Sinon ça pique au yeux pendant l'execution

[Toresupra]

Super, c'est parfait.
Je te remercie.

Par contre la commande pour masquer l'affichage fait planter la macro...

[antonysansh]

En première ligne (après le Sub) : Application.ScreenUpdating = False.

et en dernière ligne (avant le End Sub) : Application.ScreenUpdating = True.

Chez moi ça marche très bien