Réorganiser des données d'une même cellule en colonne, sous une dénominateur commun

[Iridium95]

Bonjour,

je pense que mon titre est flou donc voici des précisions:

j'ai dans ma cellule A1 une référence R et dans ma cellule B1, j'ai un ou plusieurs codes C1, C2, C3,... associés à cette référence.
Dans ma cellule B1 j'ai une référence R2 et dans ma cellule B2, j'ai un ou plusieurs codes C1, C2, C3,... associés à cette référence.
Dans mon exemple je n'ai mis que 2 références (cf PJ onglet BASE), mais ce schéma peut se reproduire jusqu'à environ 800 références par tableau pour info
je précise que les codes sont "séparés" par des sauts de lignes.

Je souhaiterai avoir un tableau dans lequel j'aurais, pour chaque référence, une ligne par code (cf PJ onglet RESULTAT)

J'ai essayer de coupler diverses fonctions :
-substitue pour transformer les sauts de lignes de ma cellule B en virgule
-convertir pour séparer ma cellule B en plusieurs lignes
-collage spécial transposé pour passer ces lignes en colonne

Mais je n'arrive jamais au résultat escompté.

j'ai essayé le VBA, mais mes connaissances sont trop limitées.
Auriez-vous une idée pour cette problématique?

merci de votre aide

 

[Phil69970]

Bonjour Iridium95, le forum

1)=SUBSTITUE(B2;CAR(10); "|")
2)Copier-coller la formule en valeur en C2 par exemple
3)Remplacer le caractère | par le point virgule par exemple
4)Convertir la cellule

@Phil69970

 

[sylvanu]

Bonjour Iridium, Phil,
En PJ un essai avec du VBA ...

Sub Translate()
' Effacement matrice résultat
Sheets("RESULTAT").Range("A2:A" & Sheets("Resultat").Range("A65500").End(xlUp).Row).ClearContents
' Init pointeur d'ecriture
IndexW = 2
With Sheets("Base")
    ' Pour toutes les lignes du tableau d'entrée
    For L = 2 To .Range("A65500").End(xlUp).Row
        ' on crée un tableau avec comme séparateur chr(10)
        tablo = Split(.Cells(L, "B"), Chr(10))
        ' on stocke les résultats
        For i = 0 To UBound(tablo)
            ' colonne A : Ref
            Sheets("Resultat").Cells(IndexW, "A") = .Cells(L, "A")
            ' colonne B : Code
            Sheets("Resultat").Cells(IndexW, "B") = tablo(i)
            IndexW = IndexW + 1
        Next i
    Next L
End With
End Sub

A adapter en fonction de votre fichier final.

 

[Iridium95]

Hello Phil, Sylvanu.

Phil, j'avais justement effectué ces manips, mais ce n'était pas complet.
Sylvanu, ta macro est exactement ce dont j'avais besoin.

merci beaucoup à tous les deux pour votre aide.

 

[Phil69970]

Iridium, Sylvain,

C'est marrant quand je fais la manip sur ton fichier :

1)=SUBSTITUE(B2;CAR(10); "|")
2)Copier-coller la formule en valeur en C2 par exemple
3)Remplacer le caractère | par le point virgule par exemple
4)Convertir la cellule

J'arrive exactement à ce que tu veux faire.

@Phil69970

 

[Phil69970]

Re

Et on peut même gagner 1 étape en faisant directement :

1)=SUBSTITUE(B2;CAR(10);";")
2)Copier-coller la formule en valeur en B2 par exemple
3)Convertir la cellule

@Phil69970

 

[Iridium95]

Iridium, Sylvain,

C'est marrant quand je fais la manip sur ton fichier :

J'arrive exactement à ce que tu veux faire.

@Phil69970

HEllo, j'ai dois mal faire la manip alors.
car quand moi je le fais ça me sépare bien le tout, mais en ligne.
désolé