Macro Copier coller en transposé

Bonjour,

J'ai un bon de commande pour un seul client qui a un certain nombre de sociétés ( 68 pour être précise) , et un bon nombre de références

le tableau s'organise de cette manière

societe / référence / quantité commandée

A / XXX / 5

A / YYYY /3

A / ZZZ / 2

B /XXX /1

B /YYY / 8

B /ZZZ /9

C /XXX /10

C /YYY / 11

C /ZZZ /5

Le tableau n'en fini pas et j'ai besoin d'arriver à un tableau de cette forme la ..

Societe / XXX / YYY / ZZZ

A / 5 / 3 / 2

B /1 /8 / 9

C /10 / 11 / 5

Y aurait il un moyen de faire ça de manière assez rapide ?

macro avec un copier collage spécial transposé ? (j'ai essayé je suis une quiche.. ça ne marche pas)

Merci par avance

Boutayna

Bonjour,

Je copie le tableau à partir de la cellule J1

Le code :

Sub transpos()
Dim Cel As Range
Dim I As Byte
Dim Derlig As Long, NbLig As Long, NbCol As Long
Dim Uniq As Object
Columns("J:IV").Clear
Derlig = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(Derlig, 1)).Name = "Plg1"
Range(Cells(2, 2), Cells(Derlig, 2)).Name = "Plg2"
Range(Cells(2, 3), Cells(Derlig, 3)).Name = "Plg3"
Set Uniq = CreateObject("Scripting.Dictionary")
For I = 1 To 2
    For Each Cel In Range(Cells(2, I), Cells(Derlig, I))
        Uniq(Cel.Value) = Cel.Value
    Next Cel
    If I = 2 Then Range("K1").Resize(, Uniq.Count) = Uniq.items: NbCol = Uniq.Count
    If I = 1 Then Range("J2").Resize(Uniq.Count) = Application.Transpose(Uniq.items): NbLig = Uniq.Count: Uniq.RemoveAll
Next I
With Range("K2").Resize(NbLig, NbCol)
    .FormulaR1C1 = "=SUMPRODUCT((Plg1=RC10)*(Plg2=R1C)*Plg3)"
    .Value = .Value
End With
Range("J1").Resize(NbLig + 1, NbCol + 1).HorizontalAlignment = xlCenter
End Sub

Regarde le fichier joint :

Bon courage

Wow !

Génial , merci !!

Bonjour,

Je n'arrive pas à créer une macro pour faire un coller transposé.

Je voudrais simplement copier des colones sur un fichier, et pouvoir les coller en ligne sur un autre fichier. j'arrive à faire la macro

Sub coller_transposé()
'
' coller_transposé Macro
' Macro enregistrée le 20/09/2012 pour transposer les colonnes en ligne et inversement.
'

'

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

Pouvez-vous m'expliquer ce qui cloche ? Merci d'avance !