XL 2016 Copier/coller lignes d'après critère

[JohnBill]

Bonjour au forum et plus particulièrement à tous ceux qui m'on aidé par le passé. J'ai encore besoin d'aide.
J'ai un fichier (assez volumineux) pour gérer mes CD qui me permet de savoir si je possède ou non un disque et ou il se trouve (Référence). Or, le filtre automatique d'excel, très pratique, est limité et ne m'affiche pas tous les résultats car mon fichier est assez gros.Je souhaiterais, à partir de la feuille de base, extraire sur une autre feuille (nommée AV), les lignes dont le mot "Artistes variés" se trouve dans la colonne B.
De même, j'aimerais copier/coller les lignes dont le nom d'artiste commence par la lettre A jusqu'à la lettre K dans le feuille AàK et idem pour ceux commençant par la L à Z vers la feuille AàZ.
J'ai fait une petite macro pour le premier point mais elle est beaucoup trop longue à s'effactuer.
Quelqu-un peut il m'aider ? D'avance merci.
PJ : un fichier très réduit

 

[don_pets]

'llo,

Voici déjà pour ta première demande (copier coller les "Artistes variés" sur feuille AV)

Sheets("ListeDesCDs").Select
Selection.AutoFilter Field:=2, Criteria1:="Artistes variés"
Range("a1").CurrentRegion.Copy

Sheets("AV").Select
Sheets("AV").Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Je regarde la suite

 

[JohnBill]

Bonjour don_pets. Ca, je savais mais le filtre automatique n'affiche pas tous les résultats si la feuille comporte un nombre très important de lignes, ce qui est le cas de mon fichier. il faudrait une autre méthode.

 

[don_pets]

hm j'ai du mal à imaginer que ça ploante ! il m'est arrivé à plusieurs reprises de jouer avec de très très gros fichier, et il ne me semble pas avoir eu de coquilles !

Sursursur de toi ?

 

[JohnBill]

La preuve. Regarde cette prise d'écran, il te dit lui même qu'il ne peut pas afficher tous les résultats.(Zoomer sur l'image car c'est écrit petit dans la fenêtre du filtre)
De plus, j'ai fais plusieurs contrôles et des lignes présentes dans la base n'étaient pas affichées dans le filtre.

 

[JohnBill]

La preuve. Regarde cette prise d'écran, il te dit lui même qu'il ne peut pas afficher tous les résultats.(Zoomer sur l'image car c'est écrit petit dans la fenêtre du filtre)
De plus, j'ai fais plusieurs contrôles et des lignes présentes dans la base n'étaient pas affichées dans le filtre.

 

[JohnBill]

ZUT; J'ai oublié le fichier.

 

[don_pets]

Je n'ai pas ton image mais si tu me dis que ça plante, c'est que ça plante, je vais cogiter à une autre soluce, mais là comme ça sans filtre ...

 

[JohnBill]

Il

 

[JohnBill]

Après essais, il semblerait que le filtre élaboré fonctionne. Comment l'écrire en VBA ?
En mettant dans la zone de critères la première lettre suivie d'une étoile (Ex : A*) et réitérer pour chaque lettre et reporter à chaque fois vers la feuille récap.
Question à laquelle je ne sais pas répondre.

 

[don_pets]

SI tu veux par exemple tout ce qui commencer par a ou b :

Sheets(1).Select
Selection.AutoFilter Field:=2, Criteria1:="=a*", _
        Operator:=xlOr, Criteria2:="=b*"

 

[JohnBill]

Rebonjour don_pets
Finalement, j'ai trouvé une solution en créant une feuille par lettre (A, B, C, D, etc) ainsi qu'un filtre avancé (plus fiable que le filtre auto) sur chaque feuille avec critère A*, B*, C*, etc... qui me sort sur chaque feuille la liste des artistes commençant par cette lettre.
Il m'a suffit ensuite de les regrouper sur deux feuilles de AàK et de LàZ.
J'avoue que c'est une méthode peu orthodoxe qui mériterait d'être simplifiée, mais efficace.
Merci tout de même de t'être penché sur mon problème d'autant que tu était le seul.

 

[mapomme]

Bonjour @JohnBill, à tous,

Pour le fun, une autre macro (sans doute plus rapide que votre méthode).

 

[JohnBill]

Sorry. Ne fonctionne pas. Erreur de compilation, variable non définie à la ligne : Ste Plageres = Nothing
Merci quand même. Beau travail dont malheureusement je ne comprends pas très bien le fonctionnement.

 

[mapomme]

Re @JohnBill

Merci de votre retour...

Sorry. Ne fonctionne pas. Erreur de compilation, variable non définie à la ligne : Set Plageres = Nothing
Merci quand même. Beau travail dont malheureusement je ne comprends pas très bien le fonctionnement.

Je n'avais pas déclaré la variable Plageres (curieux, car bien que l'option EXPLICIT soit présente, la compilation ne signale aucune erreur ??!?!!??)
Essayez la v2 ci-dessous jointe...

Si la v2 fonctionne aussi chez vous, alors, si vous me le demandez, je peux vous commenter le code.