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

Iridium95 · 12 Novembre 2020

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 · 12 Novembre 2020

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 · 12 Novembre 2020

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

Code:

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 · 12 Novembre 2020

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 · 12 Novembre 2020

Iridium, Sylvain,

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

Phil69970 à dit:
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 · 12 Novembre 2020

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 · 12 Novembre 2020

Phil69970 à dit:
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é

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

Iridium95

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Iridium95

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Iridium95

XLDnaute Nouveau

Discussions similaires