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
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