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

don_pets

XLDnaute Occasionnel

• 23 Août 2018

• #2

'llo,

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

Code:

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

 

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 23 Août 2018

• #3

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.

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 23 Août 2018

• #4

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 ?

 

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 23 Août 2018

• #5

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.

 

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 23 Août 2018

• #6

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.

 

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 23 Août 2018

• #7

ZUT; J'ai oublié le fichier.

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 23 Août 2018

• #8

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

 

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 24 Août 2018

• #9

Il

 

Pièces jointes

• Ecran.pdf

  208 KB · Affichages: 58

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 24 Août 2018

• #10

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.

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 24 Août 2018

• #11

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

VB:

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

 

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 25 Août 2018

• #12

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Août 2018

• #13

Bonjour @JohnBill, à tous,

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

 

Pièces jointes

• JohnBill- VentilerCD- v1.xlsm

  56.2 KB · Affichages: 33

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 25 Août 2018

• #14

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Août 2018

• #15

Re @JohnBill 😉

Merci de votre retour...

JohnBill à dit:

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.

Cliquez pour agrandir...

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.

 

Pièces jointes

• JohnBill- VentilerCD- v2.xlsm

  56.1 KB · Affichages: 21

Vote positif 0 Vote négatif