Transposer certaines lignes d'un fichier en colonne Fermé

Question

Bonjour, 

J essaie en vain de coder 1 macro ! quelle galère...

Dans le fichier Excel reçu, les informations sont disposées en ligne, et ces informations sont attendues en colonne.
Et c'est un peu plus compliqué qu'un coller transposer.

voici les infos reçues :
Produit  Caractéristique1 Caractéristique2 Couleur Nombre
référence 1 crayon       feutre              Rouge            3
référence 1 crayon       feutre             Vert                2
référence 2 crayon       papier             Jaune             2
référence 2 crayon       papier              Noir                3

et la disposition attendue : 
Produit  Caractéristique1 Caractéristique2 Rouge Vert Bleu Rose Jaune 
référence 1 crayon        feutre           3           2  1           4
référence 2 crayon        papier           1                                        2  

L'entête résultat est figée = le rouge est toujours assigné à la colonne D, le vert la E...
Et dans le fichier résultat la référence 1 ne doit figurer qu'une fois..

Le tableau résultat pourrait être créé idéalement sur une deuxième feuille.

Si vous pouviez m'aider avec la bonne macro, ce serait un aide énorme pour moi.

Merci!

yg_be · Answer

bonjour,
ton exemple est-il correct?

yg_be · Answer

connais-tu les tableaux croisés dynamiques?

avenue_B · Answer

Bonjour ! Je ne connais pas les tableaux croisés dynamiques. je m'en suis sortie en copiant le code de Raja (sur un autre site)
Merci pour vos commentaires !
(je ne sais pas comment cloturer cette demande) 


Option Explicit
Sub toColumns()
    Dim wsSource As Worksheet, wsDest As Worksheet
    Dim derLig, i, k, lig, col As Long
    Set wsSource = Sheets(1)
    Set wsDest = Sheets(2)
    On Error Resume Next
    derLig = wsSource.Range("A" & Rows.Count).End(xlUp).Row
    k = 2
    For i = 2 To derLig
        With wsSource
            'données Crayon :
            If WorksheetFunction.CountIf(wsDest.Columns(1), .Cells(i, "A")) = 0 Then
                wsDest.Cells(k, "A") = .Cells(i, "A")
                wsDest.Cells(k, "B") = .Cells(i, "B")
                wsDest.Cells(k, "C") = .Cells(i, "C")
                k = k + 1
            End If
            'valeurs selon entête Coloris :
            lig = WorksheetFunction.Match(.Cells(i, "A"), wsDest.Columns(1), 0)
            col = WorksheetFunction.Match(.Cells(i, "D"), wsDest.Rows(1), 0)
            wsDest.Cells(lig, col) = .Cells(i, "E")
        End With
    Next i
    Set wsSource = Nothing
    Set wsDest = Nothing
End Sub