XL 2010 Filtrer automatiquement par ordre alphabétique.

DAVID-44-

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Classeur1.xlsx
    19.4 KB · Affichages: 6

DAVID-44-

XLDnaute Occasionnel
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.
 

DAVID-44-

XLDnaute Occasionnel
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). :rolleyes:
À 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 ! :eek:
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

XLDnaute Barbatruc
Repose en paix
Bonjour,

Version 1 seule page



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

Boisgontier
 

Pièces jointes

  • FiltreListe2.xlsm
    29.5 KB · Affichages: 7

Statistiques des forums

Discussions
311 545
Messages
2 080 565
Membres
101 256
dernier inscrit
Ludmi