Bonjour à tous,


j'ai bien trouvé de quelle manière récupérer les valeurs d'une feuille de calcul pour les enregistrer sans doublon dans un tableau virtuel


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
        Set mondicogrp = CreateObject("Scripting.Dictionary")
            a = Range("K2:K" & lastrow).Value
            For Each c In a
                dicogrp(c) = ""
        Next c

(j'avais au préalable défini lastrow)


Autant je colle facilement tout ça en lignes, dans une seule colonne donc

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
        Set dest = Sheets("uniquevalues")
        dest.[g1].Resize(mondico.Count, 1) = Application.Transpose(dicogrp.keys)
autant je ne m'en sors pas pour coller les valeurs uniques de ce tableau virtuel sur une seule ligne, pour en faire des entêtes de colonnes.


C'est certainement trivial alors un tout petit coup de pouce me rendrait vraiment bien service !...
Merci d'avance @ tous,
TF