Discussion :

[ericdev67]

Bonjour,

J'aimerai mettre un tableau sous forme de colonnes....

Suite à la lecture des supers tutos de JB (Regroupement avec présentation en colonnes), JB, propose une de mettre des colonnes sous forme de tableau....je cherche à faire exactement l'inverse....mais je n'arrive pas à "modifier" le code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub PrésentationColonnes()
  [D2:K100].ClearContents
  Set d = CreateObject("Scripting.Dictionary")
  For Each c In Range("A2:A" & [A65000].End(xlUp).Row)
    d(c.Value) = d(c.Value) & c.Offset(0, 1) & "|"
  Next c
  If d.Count > 0 Then
    [d2].Resize(, d.Count) = d.keys
    i = 0
    For Each c In d.items
       a = Split(c, "|")
       d4].Offset(, i).Resize(UBound(a)) = Application.Transpose(a)
       i = i + 1
    Next c
  End If
End Sub

pour y arriver....
Ce que je cherche à avoir :


Merci pour votre aide,