extraire et transposer données verticalement

fred94000 · 28 Avril 2014

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 · 28 Avril 2014

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 · 28 Avril 2014

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

Code:

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

extraire et transposer données verticalement

fred94000

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires