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.
 

Pièces jointes

  • Classeur exemple.xlsm
    15.9 KB · Affichages: 27
  • Classeur exemple.xlsm
    15.9 KB · Affichages: 36
  • Classeur exemple.xlsm
    15.9 KB · Affichages: 30

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
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
 

Pièces jointes

  • Classeur exemple-1.xls
    44 KB · Affichages: 33
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.
 

Pièces jointes

  • recette v00.xlsm
    36.6 KB · Affichages: 21
  • recette v00.xlsm
    36.6 KB · Affichages: 19
  • recette v00.xlsm
    36.6 KB · Affichages: 17
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.
 

Pièces jointes

  • Recette V3-0.xlsm
    39 KB · Affichages: 28
  • Recette V3-0.xlsm
    39 KB · Affichages: 32
  • Recette V3-0.xlsm
    39 KB · Affichages: 29

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510