Probleme Filtre élaboré

[Eric1033]

Bonsoir à toutes et tous,
Je souhaiterais utiliser un filtre élaboré sur une colonne avec plusieurs critères et les copier sans doublons dans plusieurs emplacement.
J'y arrive , sur mon dossier original, en utilisant l'enregistreur de macro et en enregistrant une macro pour chaque critère.
Serait il possible d'utiliser une seule macro qui fasse (ce que je souhaiterais) en 1 seule fois ?
J'espère avoir été assez clair. Je joins un fichier.
Par avance merci à vous qui prendrez le temps de vous pencher sur mon "problème"
Bonne soirée

 

[Bebere]

bonjour
Eric
attention aux espaces dans les entrées,il y en avait en colonne A
avec dictionary pour les critères(si erreur : activer dans outils références,cocher microsoft scripting runtime)
code dans module1

 

[Eric1033]

Bonsoir Bebere,
Merci de prendre le temps de te pencher sur ma demande.
J'ai adapté ta macro à mon fichier mais j'ai un soucis avec les formule dans ta macro. Peux tu STP me donner un coupe de main avec des explications ?
Par avance un grand merci
Eric

 

[Lolote83]

Salut à tous,
Ayant commencé hier, je viens de finir sans avoir regardé la solution de BEBERE (que je salue au passage).
Voir ici si cela convient
@+ Lolote83

 

[Bebere]

bonjour Eric,Lolote
je pense que tu dois abandonné le filtre élaboré
les familles changent
je vais essayer de faire un code qui s'adapte aux familles

 

[Bebere]

Eric
une autre possibilité avec dictionary
si besoin il y a moyen de changer le code du côté des colonnes("N à ....)

 

[Eric1033]

Bonsoir Bebere,
Je regarderai plus précisément ce soir chez moi tranquillement. Peux tu, si ce n'est pas trop abuser, me commenter ton code ? afin que j'essais de comprendre .
Par avance merci. Je pense que je reviendrai vers toi pour quelques questions si ça ne te dérange pas.
Bonne soirée à toi

 

[Bebere]

bonjour
Eric
voilà avec quelques commentaires et corrections

 

[Eric1033]

Bonjour Bebere,
Super, je regarde et je reviens vers toi
Encore merci à toi
Bon week end

 

[Eric1033]

Re bonjour Bebere,
Je crée un bouton pour lancer la macro Sub FamillesSansDoublons(), ça fonctionne;
je crée un bouton pour lancer la macro Sub FiltreVariétés ()
Une fenêtre s'ouvre indiquant :
Erreur d'exécution'9': L'indice n'appartient pas à la sélection
Je clique sur débogage et la ligne suivante apparait en jaune (texte souligné):
Tb1Variétés(L, 1) = Lo.Range.Cells(Ligne, 2) : L = L + 1.

 

[Bebere]

Eric
ajoute :L=1,comme dans balises code
sans doute une mauvaise manoeuvre de ma part

        'dimensionne le tableau x lignes, 1 colonne
        ReDim TblVariétés(1 To Dvariétés.Count, 1 To 1): L = 1

l'autre code ne sert pas

 

[Eric1033]

Berbere,
En PJ le tableau avec quelque modifications. Serait il possible d'adapter la macro (car après plusieurs essais je n'y arrive pas ... Chacun son métier . J'ai noté dans le fichier les motif. )
Dans tous les cas merci à toi.

 

[Bebere]

Eric pour familles si tu n'as que du texte
il y a moyen de simplifier

 

[Eric1033]

Berbere, je n'ai que du texte dans la colonne famille.
Que me proposes tu ?

 

[Bebere]

bonjour
Eric
si tu n'as que du texte c'est plus simple
pourquoi avoir mis des chiffres
pour le moment le résultat n'est pas bon,il le sera avec du texte
mis changé en commentaire(pour les changements) et supprimer les accents dans le code