XL 2010 Extraction suivant critère avec userform

[DMT]

Bonjour à tous,

J'ai un petit problème à vous soumettre que je n'arrive pas à résoudre.
Dans un classeur, j'ai un premier onglet qui comporte une liste de noms, prénoms, adresse et catégories. J'ai donc créé un petit programme en VBA qui doit m'extraire la liste des noms par catégories. J'ai utilisé la fonction filtre avancé pour chaque catégories, mais l'extraction ne fonctionne pas bien pour les lettres après le A. Je précise que les chiffres n'ont pas d'importance pour l'extraction. Je vous donne un fichier "bidon" qui reprend l'ossature de l'original avec une copie d'écran de mon userform.
Si vous pouviez m'expliquer comment m'y prendre sachant que je suis débutant en VBA et moyen sur Excel.
Je vous remercie à l'avance de votre aide.

Très bonne fin de dimanche.

DMT

 

[Staple1600]

Bonjour le fil, DMT

Je ne vois pas dans ton code existant l'emploi de filtre élaboré, non ?

EDITION: Bonsoir pierrejean

 

[pierrejean]

Bonjour DMT

Salut Staple

Un essai

 

[DMT]

Bonsoir et merci de la réponse, ça semble aller pour ce que je veux faire.
Je tente un essais sue le fichier original pour voir si tout fonctionne et je reviens vers le forum pour donner le résultat.

Bonne soirée, DMT

 

[Staple1600]

Re

DMT
Tu n'as pas vu ma question au message#2?
Car j'ai cherché dans ton fichier exemple et j'ai pas trouvé
(Je cherchais pour pouvoir tester le filtre avancé)

 

[DMT]

Bonsoir Staple1600

Non, pas vu 😡 ...!

Pardon, mais le code se trouve dans le classeur original. Je joins un extrait du code pour la lettre A. C'est compliqué, mais je ne sais pas faire plus simple ...

Bonne soirée

 

[DMT]

Bonjour DMT

Salut Staple

Un essai

Bonsoir,

Peux-tu me décrypter le code qui fait référence aux critères de recherche, à savoir où il récupère la liste des lettre à trouver ...

Merci à l'avance. DMT

 

[pierrejean]

Re

Voici avec le code commenté

 

[DMT]

Bonjour Pierrejean,

Je suis vraiment nul, depuis ce matin, je galère sur le code et quand je demande une catégorie (jusque là, ça fonctionne) j'ai bien une nouvelle feuille qui s'ouvre (bien nommée) mais je n'ai que la ligne de titre qui s'affiche GRRRR!!!
Pourtant, tout est bien décrit, il me suffit de l'adapter à mon fichier 😡

Merci de ta patience ...

DMT

 

[pierrejean]

Re
La structure de ton fichier est-elle bien identique a celle du fichier original ?
notamment vérifier la colonne ou se trouve le critère .elle doit correspondre avec la dernière colonne du tableau

 

[DMT]

Alors, mon tableau comporte 13 colonnes (A à M) et ma catégorie se trouve en K. Bien évidemment, je l'ai délacée en M (dernière colonne) mais ça me donnait le même résultat.
Et maintenant, plus rien ne fonctionne, j'ai un blocage au niveau de la deuxième ligne (
tablo = Sheets("Global Royan").Range("A2:M" & Sheets("Global Royan").Range("A" & Rows.Count).End(xlUp).Row)) avec tablo surligné en bleu.
Je suis pénible ...

 

[pierrejean]

poste une copie de ton fichier après avoir remplacé les données par des 'bidons'
quelques lignes significatives suffisent

 

[DMT]

OK

 

[DMT]

Je laisse le code VBA complet ?

 

[DMT]

Je veux dire sur ce qui était déjà construit pour d'autres fenêtres ...