trier plage de données sans doublons

misteryann

XLDnaute Occasionnel
Bonsoir à tous

D'abord un grand merci à Dranreb :) pour sa patience et sa solution lors de mon précédent post.

Je souhaite extraire des données d'une feuille "Données", à terme 84 colonnes max (sans doublons) dans une feuille "Liste".
Le tableau de la "Liste" est volontairement limité à (A1:C30)


Pour tout dire, pour mon projet final, je souhaite créer une liste de course à partir de recettes en cliquant sur des checkbox dont le Caption varie en fonction des ingrédients.
Ces checkBox alimenteront la feuille "Données".
Un clic sur "Edition" éditera la Liste.

Merci.
Cordialement.
 

Fichiers joints

BOISGONTIER

XLDnaute Barbatruc
Re : trier plage de données sans doublons

Bonsoir,

cf PJ

Sélectionner A1:C30
=sansdoublons(Données!A1:I16)
Valider avec maj+ctrl+entrée

Code:
Function SansDoublons(champ As Range)
  Set mondico = CreateObject("Scripting.Dictionary")
  mondico.CompareMode = vbTextCompare
  temp = champ
  For Each c In temp
    If c <> "" Then mondico(c) = ""
  Next c
  Dim b()
  ReDim b(1 To Application.Caller.Rows.Count, 1 To Application.Caller.Columns.Count)
  i = 1
  j = 1
  For Each c In mondico.keys
    b(i, j) = c
    i = i + 1
    If i > Application.Caller.Rows.Count Then i = 1: j = j + 1
  Next
  SansDoublons = b
End Function
JB
 

Fichiers joints

Dernière édition:

misteryann

XLDnaute Occasionnel
Re : trier plage de données sans doublons

Merci Beaucoup M. Boisgontier.
Je vais souvent sur votre page pour trouver des ressources Excel et VBA.
Un grand bravo.

Mais là, je n'arrive pas à rentrer votre code et votre matrice... (suis nul).

Serait-ce trop demander de le faire.
(il y a une erreur dans le code pour les checkboxs (je l'enlèverai après))

Encore merci pour votre excellent travail.

Cordialement.
 

Fichiers joints

Dernière édition:

misteryann

XLDnaute Occasionnel
Re : trier plage de données sans doublons

Bonsoir. (mon projet de recette et liste de courses en PJ)

Au final, j'ai fait du mode dégradé: j'ai copier mes feuilles, ma Userform et les modules vers la soluce de JMB.
Je joins mon projet si cela peut servir à d'autre.
Libre à nous de l'améliorer.

Milles mercis à Dranreb et JMB pour leur disponibilité.
Ca fait plaisir d'avoir des personnes qui mettent leurs compétences à la disposition de tous.

Bien cordialement.
 

Fichiers joints

Discussions similaires


Haut Bas