extraire et transposer données verticalement

[fred94000]

Bonjour à tous et le forum,
je reviens vers vous pour modifier ce programme.
celui-ci me permet d'extraire des données d'une autre feuille mais me l'affiche verticalement.
je voudrais qu'il s'affiche horizontalement.

Sub màJ()
Dim temp()
Dim n As Long, formule As String
Dim f, maliste, a, dest, c, j, k
Dim g
Set f = Feuil2
Set maliste = CreateObject("Scripting.Dictionary")
a = Range(f.[g2], f.[g65536].End(xlUp)).Value
For Each c In a
maliste(c) = ""
Next c
Set dest = Sheets("tableau").Range("b3")
dest.Resize(maliste.Count, 1) = Application.Transpose(maliste.Keys)
dest.Resize(maliste.Count, 1).Sort key1:=dest, order1:=xlAscending
Set maliste = Nothing 'libère maliste

Application.ScreenUpdating = True

dans l'attente d'une réponse MERCI

 

[Staple1600]

Re : extraire et transposer données verticalement

Bonsoir à tous

fred94000
Que faire d'un code VBA issu d'un fichier Excel non joint à la discussion?
Prendre du temps pour le recréer pour faire des tests alors qu'il existe déjà sur le disque dur du demandeur...
ou alors attendre que ...

 

[Staple1600]

Re : extraire et transposer données verticalement

Re

Heureusement parfois qu'en lisant juste le code, on peut s'en sortir
Testes avec ces modifs sur ton fichier qu'on n'aura pas vu passer

Sub MaJbis()
Dim temp()
Dim n As Long, formule As String
Dim f, maliste, a, dest, c, j, k
Dim g
Set f = Feuil2
Set maliste = CreateObject("Scripting.Dictionary")
a = Range(f.[g2], f.[g65536].End(xlUp)).Value
For Each c In a
maliste(c) = ""
Next c
Set dest = Sheets("tableau").Range("b3")
dest.Resize(1, maliste.Count) = maliste.Keys
'ici scories enregisteur de macros
With ActiveWorkbook.Worksheets("tableau").Sort
        .SetRange dest.Resize(1, maliste.Count)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
Set maliste = Nothing 'libère maliste
Application.ScreenUpdating = True
End Sub