Scinder une cellule en plusieurs lignes

[Nouzee]

Bonjour à tous,

J'ai parcouru le forum pour essayer de trouver une solution à mon problème, j'ai trouvé des aides s'y approchant sans pour autant trouver la solution ultime.

Je m'explique, j'ai un tableau dans lequel se trouve différentes informations :
- colonne 1 : numéro d'article
- colonne 2 : description article
- colonne 3 : date de réception
- colonne 4 : numéros de commandes impactées (colonne T dans l'exemple)
.....

Les cellules des numéros de commandes contiennent donc plusieurs valeurs, identifiées par 11 à 12 caractères (3 lettres, 6 chiffres, underscore, 1 ou 2 chiffres) et sont séparés par une barre verticale (tube).

Mon but est, pour chaque numéro de commande rencontré, créer une nouvelle ligne avec ce numéro de commande en reprenant les informations de la ligne dont il est extrait.

J'espère avoir été clair, dispo pour tout complément d'infos.

D'avance merci.

 

[tototiti2008]

Re : Scinder une cellule en plusieurs lignes

Bonjour Nouzee,

Bienvenue sur XLD

Le fichier envoyé est-il le bon ?
Parce qu'avec une ligne de données, ça risque d'être un peu court
D'autre part, si tu le met à jour, pourrais tu construire un tableau de ce que tu souhaiterais obtenir ?

 

[fhoest]

Re : Scinder une cellule en plusieurs lignes

Bonjour,
dans l'onglet "données" tu as une option "convertir"
click dessus et suit la procedure normalement tu devrai je pense trouver ton bonheur
A+
edit : bonjour TOTOTITI2008

 

[Nouzee]

Re : Scinder une cellule en plusieurs lignes

Bonjour Tototiti2008,

Le fichier envoyé est volontairement exhaustif, il possède normalement dans les 600 lignes.

Je joins l'exemple de ce que j'aimerai obtenir.

Merci.

 

[tototiti2008]

Re : Scinder une cellule en plusieurs lignes

Bonjour fhoest,
Re,

Je n'ai toujours pas compris ce que tu souhaites obtenir
Peux-tu nous faire un tableau résultant souhaité ?

 

[Nouzee]

Re : Scinder une cellule en plusieurs lignes

Re,

Le fichier test est le tableau existant, le fichier test2 est la résultante de ce que je souhaiterai obtenir.

A savoir, la cellule T2 contenue dans 'test' comprenait 4 occurrences a scindé et créer 3 nouvelles lignes (résultat 'test2').

 

[TempusFugit]

Re : Scinder une cellule en plusieurs lignes

Bonjour


A adapter à ton fichier réél

Sub test()
For i = 100 To 2 Step -1
If Not IsEmpty(Cells(i, "T")) Then
 Cells(i, "T").Offset(1).Resize(3).EntireRow.Insert
 End If
Next i
For j = 100 To 2 Step -1
If Not IsEmpty(Cells(j, "T")) Then
Cells(j, "T").Resize(4) = Application.Transpose(Split(Cells(j, "T"), "|"))
End If
Next j
End Sub

 

[Nouzee]

Re : Scinder une cellule en plusieurs lignes

Bonjour Tempus,

Il faudrait que les données contenues dans les autres cellules se répètent également sur les autres nouvelles lignes, est-ce possible ?

En tout cas merci.

 

[tototiti2008]

Re : Scinder une cellule en plusieurs lignes

Bonjour Tempus,
Re,

Enfin compris, moi 😉

à lancer dans le classeur Test, le résultat apparaitra en Feuil2

Sub Multiplie()
Dim i As Long, j As Long, Tablo, DerLigne As Long
    Sheets("feuil2").Cells.ClearContents
    With Sheets("Feuil1")
        .Range("A1:IV1").Copy Sheets("Feuil2").Range("A1")
        DerLigne = 2
        For i = 2 To .Range("T65536").End(xlUp).Row
            Tablo = Split(.Range("T" & i).Value, "|")
            For j = LBound(Tablo) To UBound(Tablo)
                .Range("A" & i & ":IV" & i).Copy Sheets("Feuil2").Range("A" & DerLigne)
sheets("Feuil2").range("T" & Derligne).value = tablo(j)
                DerLigne = DerLigne + 1
            Next j
        Next i
    End With
End Sub

 

[Nouzee]

Re : Scinder une cellule en plusieurs lignes

C'est parfait.

Un grand merci et une bonne fin de journée.