XL 2010 Filtrer automatiquement par ordre alphabétique.

[DAVID-44-]

Bonjour,
J'aimerais filtrer automatiquement par ordre alphabétique une liste de plats dans les cellules en colonne "A" avec plusieurs mots qui se trouve en colonne "B" sans limites de mots dans cette colonne.

Exemple :

avoir dans la Colonne A :

COQ A LA BIÈRE
COQUELET GRILLÉ SAUCE BARBECUE
COQUILLETTES / FROMAGE RÂPÉ
CRIQUE A LA VOLAILLE
CUISSE DE POULET > COUSCOUS
CUISSE DE POULET RÔTIE
ESCALOPE DE VOLAILLE FORESTIÈRE
FILET DE POULET AUX 5 ÉPICES
NUGGETS DE POULET
PAËLLA POULET
PÂTÉ DE FOIE DE VOLAILLE
QUENELLE DE VOLAILLE SAUCE MEXICAINE
SAUCISSON AU POULET

en écrivant dans la colonne "B" :

POULET
COQ
VOLAILLE

Merci beaucoup de votre coup de main.
Cordialement.
David.

 

[Compte Supprimé 979]

Re

Crossposting !
Tu auras peut-être une réponse ICI

 

[BOISGONTIER]

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreListeTS.xlsm

Boisgontier

 

[chris]

Bonjour à tous

Re

Crossposting !
Tu auras peut-être une réponse ICI

Et Là

J'en ai aussi une indigestion de ces pratiques délétères...

 

[DAVID-44-]

Bonjour Boisgontier un grand merci. Super travail, c'est vraiment ce que je recherchais. Merci merci merci beaucoup.
J'arrête sinon certains vont dire que je fais du "crossmerci".
Mrs BrunoM45 et chris, je vous demande de m'excuser d'avoir utilisé cette pratique. Je comprends que ça peut surcharger les forums.
Je vous souhaite une très belle journée.
Cordialement.
David.

 

[chris]

RE

Ce n'est pas une question de surcharge des forums c'est une question de respect des aidants

 

[DAVID-44-]

Bonjour à tous,
Haaaaa OK, si c'est une question de respect, pas de soucis pour ça ! Même si je remercie les aidants un peu plus tard, je le fais avec sincérité, avec beaucoup de plaisir et dans un grand respect. Honnêtement, j'utilise plusieurs forums pour avoir plus de chance d'avoir un maximum de réponse et de possibilités (j'imagine, que vous laviez bien compris).
À vrai dire, c'est la première fois qu'on me fait ces remarques aussi et j'avais peur d'avoir enfreint une règle !
Maintenant, avec votre réponse Chris, je comprends un peu mieux et je continuerais à respecter tous les aidants comme je l'ai toujours fait.

Cordialement.
Bonne journée à tous.
Merci beaucoup de vos aides.

David.

 

[BOISGONTIER]

Bonjour,

Version 1 seule page

Sub FiltreListe2()
    Range("G1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
       CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("J1"), Unique:=False
End Sub

Boisgontier

 

[DAVID-44-]

Re,
Merci beaucoup.
Bonne journée.
Cordialement.
David.