Création de ligne supplémentaire si plusieurs valeur dans une même ligne

Bonjour à tous,

Expliquer ce que je souhaite vas être un peu compliqué, mais je me lance:

J'ai un fichier excel, dans ce fichier j'ai des références, colonne G (référence), ces références existent en plusieurs qualité, colonne H (attribut de qualité).

Mon fichier à plus de 16 000 lignes au total.

J'aurai besoin que pour chaque qualité différente (colonne H) une ligne se créé.

Par exemple pour la ligne 4, la référence est FCP1467, et cette référence dispose de 3 qualités différentes: FCP1467H , FCP1467R , FCP1467Z.

J'aurai besoin qu'une ligne se crée pour chaque qualité différente en gardant le reste de la ligne inchangée car sinon sur 16 000 lignes je n'ai pas finis ...

Y a t-il une formule ou fonction qui pourrait faire cela? Je vous joint un extrait.

Merci à tous pour votre précieuse aide.

Bonjour,

Une solution par POWER QUERY en fonction de votre version d'Excel (j'ai l'impression que vous êtes sur MAC donc aucune idée de si ça va fonctionner ...) avec au préalable une conversion de votre base initiale en table structurée.

En suivant la manipulation suivante

Cdlt,

Bonjour,

Je suis sur la version 16.45.

Je vais essayer, merci beaucoup

En effet pas possible sur mac :(

Bonjour,

Si un expert du POWER QUERY peut aider (Jean-Eric, 78chris par exemple) je suis preneur, étant moi même confronté au problème sur un autre fichier.
J'ai lu que l'architecture des chemin n'étaient pas la même, ce qui, je présuppose modifie le chemin d'accès à la source dans les propriétés de la requête, mais je ne sais comment la contourner ...

Sinon il y a la solution du VBA mais sur 16 000 lignes je passe la main.

Donc j'appelle également à l'aide :)

Cdlt,

Bonjour Anaïs, Ergotamine, le forum,

Un essai par macro (que j'avais en stock) après avoir mis tes données sous forme de tableau structuré...

Merci à l'auteur de cette macro (gmb me semble-t-il ?)

Option Explicit

Dim tablo, tabloR(), a
Dim i&, j&, k&, lgn&

Sub Test()

    Application.ScreenUpdating = False

    tablo = Sheets("Feuil1").Range("Tableau1")
        Sheets("Feuil1").Range("Tableau1").Delete
        For i = 1 To UBound(tablo, 1)
            a = Split(tablo(i, 8), ",")
            lgn = IIf(i = 1, 2, Range("B" & Rows.Count).End(xlUp)(2).Row)
            Range("H" & lgn).Resize(UBound(a) + 1) = Application.Transpose(a)
            For j = 1 To 7
                Range(Cells(lgn, j), Cells(lgn + UBound(a), j)) = tablo(i, j)
            Next j
        Next i
End Sub

CTRL + e pour exécuter la macro...

Cordialement,

Bonjour tout le monde. Une petite macro de plus.