Conversion d'une colonne sur plusieurs ligne (complexe)

Bonjour à tous,

le but est de convertir la colonne en plusieurs ligne.

chaque produit possède plusieurs paramètres et le but est d'afficher chaque paramètre du produit sur une seul unique, 2éme ligne contient le 2eme paramètre du méme produit et ainsi de suite.

pourriez vous m'aider à résoudre le problème pour le 1er produit pas tous les produits.

le classeur explique clairement le but.

merci

bonjour,

une proposition

Option Explicit
Sub aargh()
Dim dl&, i&, j&, k&, wsd As Object
    With Sheets("feuil2") 'feuille source
        Set wsd = Sheets("feuil3") 'feuille résultat
        dl = .Cells(Rows.Count, 2).End(xlUp).Row 'dernière ligne source
        i = 3 'n° ligne source
        k = 1 'n° ligne résultat

        Do While Left(.Cells(i, 2), 3) = "par" 'ligne paramètre
            For j = 3 To 6 'copier les valeurs du paramètre pour chaque produit
                k = k + 1
                wsd.Cells(k, 1) = .Cells(2, j)
                wsd.Cells(k, 2) = .Cells(i, 2)
                wsd.Cells(k, 3).Resize(1, 17) = Application.Transpose(.Cells(i, j).Resize(17))
            Next j
            i = i + 17
        Loop
        wsd.Range("A1").Resize(k, 20).Sort key1:=wsd.Range("A1"), order1:=xlAscending, Header:=xlYes 'trier les paramètres par produit
    End With
End Sub

le problème n'est pas résolu.

vous trouvez le résultat dans le classeur

de rien

excusez moi merci pour votre aide et désolé de ne pas vous remercier tellement le projet m’embête j'arrive pas à me concentrer

chui vraiment désolé

bonsoir,

la code fourni est adapté au premier fichier et aux éléments de compréhension de ta demande que tu as donnés , si entretemps tu modifies sa structure et sa composition,il est normal que la macro ne fonctionne pas, il faut adapter la macro à ton nouveau fichier.

bonjour

Merci pour l’intérêt que vous avez porté sur mon sujet

oui je l'ai adapté en faite mais ça marche pas de même la résultante n'est pas la bonne.

bonjour,

ta réponse n' aide pas à comprendre le problème que tu rencontres.