passer une liste de la verticale à l'horizontale

[bertgrav]

bonjour,

dans le fichier joint, je donne un exemple avec des noms en colonne A et des prénoms en colonne B (feuille liste)
Je voudrais passer de cette liste verticale à une liste horizontale, en ne laissant par ligne qu'un seul nom et y en mettant tous les prénoms se reportant à ce nom dans les cellules voisine (voir feuille classement).

je n' arrive pas à trouver le code...

avez vous une idée ?

par avance merci

chantal

 

[BOISGONTIER]

Re : passer une liste de la verticale à l'horizontale

Bonjour,

Voir J

JB
Formation Excel VBA JB

 

[bertgrav]

Re : passer une liste de la verticale à l'horizontale

merci pour ta réponse qui il faut l'avouer est très intéressante.
par contre, comme ce fichier n'est qu'un exemple, je voudrais à l'aide d'une macro réaliser ce qui est fait en seconde page.
en réel le vrai fichier est composé de 300 lignes qui changent toutes les semaines, et il y a d'autres traitement à réaliser en // (ce que j'ai déjà trouvé).
je veux simplement avoir un bon code pour terminer le travail

amicalement

chantal

 

[BOISGONTIER]

Re : passer une liste de la verticale à l'horizontale

Voir PJ

Sub Essai()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2", [a65000].End(xlUp))
    If Not mondico.Exists(c.Value) Then
       mondico(c.Value) = c.Offset(0, 1) & " "
    Else
       mondico(c.Value) = mondico(c.Value) & c.Offset(0, 1) & " "
    End If
  Next c
  a = mondico.keys
  b = mondico.items
  For i = LBound(b) To UBound(b)
    Sheets(2).Cells(i + 2, 1) = a(i)
    c = Split(b(i), " ")
    For j = LBound(c) To UBound(c)
      Sheets(2).Cells(i + 2, 2 + j) = c(j)
    Next j
   Next i
End Sub

ou

Sub ColonneLigne()
   [A2:B1000].Sort key1:=[A:A], Header:=XlnoGuess
   LigneBD = 2
   LigneResult = 2
   Do While Cells(LigneBD, 1) <> ""
      temp = Cells(LigneBD, 1)
     Sheets(2).Cells(LigneResult, 1) = Cells(LigneBD, 1)
     c = 2
     Do While Cells(LigneBD, 1) = temp
        Sheets(2).Cells(LigneResult, c) = Cells(LigneBD, 2)
        c = c + 1
        LigneBD = LigneBD + 1
     Loop
     LigneResult = LigneResult + 1
  Loop
End Sub

JB

 

[bertgrav]

Re : passer une liste de la verticale à l'horizontale

excellent, c'est exactement ce que je voulais

encore un grand merci

chantal