deux filtres silmutanément par VBA

G

Guest

Guest

• 23 Février 2014

• #2

Re : deux filtres silmutanément par VBA

Bonjour,

Utilise l'enregistreur de macro avec tes deux conditions de filtre et tu en trouveras la syntaxe. Ensuite il suffira éventuellement d'adapter.

A+

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 23 Février 2014

• #3

Re : deux filtres silmutanément par VBA

Bonjour
j'avais fait cette solution dès le début, mais mon problème vient du fait que ma macro va devoir mesurer 1 km, vu ce que je doit faire. ça fait une semaine que je tourne en rond avec pleins de post sur d' autres questions, mais en fait c'est le même problème que je n' arrive pas à contourner.

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 23 Février 2014

• #4

Re : deux filtres silmutanément par VBA

Pour te répondre :
Selection.AutoFilter Field:=9, Criteria1:="FACTURE CARTE", Field:=2, Operator:= _
xlFilterValues, Criteria2:=Array(0, "1/31/2014")
cette syntaxe je l'ai inventé en supposant qu'elle est bonne .....
Si tu vois une solution je suis preneur
cordialement

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 23 Février 2014

• #5

Re : deux filtres silmutanément par VBA

bonjour à tous

je recherche syntaxe , si cela existe, pour sur seule instruction, obtenir le résultat de deux filtres et réduire au possible la syntaxe

Cliquez pour agrandir...

une seule instruction pour filtrer selon deux valeurs sur une seule colonne : pas de problème
une seule instruction pour filtrer selon deux valeurs sur deux colonnes : pas possible
Il faut filtrer une fois la première colonne avec la première valeur et une deuxième fois sur l'autre colonne avec l'autre valeur comme l'indique le résultat de l'enregistreur de macro.

Au niveau syntaxe:
WorkSheets("Feuil1").Range("A1").AutoFilter Field:=N°Col, Criteria1:=moncritère

A+

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 23 Février 2014

• #6

Re : deux filtres silmutanément par VBA

ouah.. merci
et justement j' étais en train de me casser les dents sur le problème suivant en attendant de trouver mieux :
mon but est , après chaque "double filtre" , de copier ce résultat sur une autre feuille ( plus simple à mon niveau)
et ensuite, de refaire ce double filtre sur une date et catégorie différent, et ensuite de le mettre à la suite du 1er résultat
et encore......je tourne en rond

entre temps , je reprends ton code. c'est justement , plus un code est simplifié, moins on s' embrouille !
merci

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 23 Février 2014

• #7

Re : deux filtres silmutanément par VBA

re bonjour
Paf
merci de me répondre
en d' autres termes comment récupérer le résultat (le nommer) pour ensuite le recoller à la dernière ligne :
WorkSheets("Feuil1").Range("A1").AutoFilter Field:=N°Col, Criteria1:=moncritère
WorkSheets("Feuil1").Range("A6").AutoFilter Field:=N°Col, Criteria1:=moncritère

Selection.Copy
Sheets("8").Select
Cells(derligne, 1).Select
Selection.Copy
ne marche pas

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Février 2014

• #8

Re : deux filtres silmutanément par VBA

Bonjour.
Il n'est pas évident qu'il faille passer par un filtre pour pouvoir coller successivement les lignes issues de plusieurs séries de choix à plusieurs critères. Un Userform pour sélectionner ces choix serait apprécié dans votre classeur joint au format .xls.
Je ne répondrai aux suites n'observant ma signature.

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 23 Février 2014

• #9

Re : deux filtres silmutanément par VBA

je comprends tout à fait
pour éviter de chercher ( un million d'essais) :

feuille BNP est mon model source
feuil8 est la copie de BNP (pour éviter de tout perdre)
feuil 7 est mon résultat souhaité
feuil 6 est une chouette présentation qui pourra me servir

dernier essai : macro "macro 16"
avant dernier "Sub essai_TRI_BNP_21()

merci

 

Pièces jointes

• macro bug4 .xlsm

  672.7 KB · Affichages: 30
• macro bug4 .xlsm

  672.7 KB · Affichages: 40
• macro bug4 .xlsm

  672.7 KB · Affichages: 48

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 23 Février 2014

• #10

Re : deux filtres silmutanément par VBA

Bonjour DANREB
cela me fait plaisir d'avoir ton soutien, je te voit régulièrement sur le forum
Yaloo s'y est penché ( cf sa jolie macro) en page 6, mais depuis une semaine , je ne pensais pas que c'était si compliqué
cordialement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Février 2014

• #11

Re : deux filtres silmutanément par VBA

Faire un classeur modèle plus simple, avec une feuille source d'où on doit extraire certaines lignes, une feuille cible où il faut les empiler et Userform comportant un ComboBox pour chaque critère à sélectionner.

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 23 Février 2014

• #12

Re : deux filtres silmutanément par VBA

re bonjour à tous

Paf
merci de me répondre
en d' autres termes comment récupérer le résultat (le nommer) pour ensuite le recoller à la dernière ligne :
WorkSheets("Feuil1").Range("A1").AutoFilter Field:=N°Col, Criteria1:=moncritère
WorkSheets("Feuil1").Range("A6").AutoFilter Field:=N°Col, Criteria1:=moncritère

Selection.Copy
Sheets("8").Select
Cells(derligne, 1).Select
Selection.Copy
ne marche pas

Cliquez pour agrandir...

Si le tableau en filtre automatique commence en A1, c'est le N° de la colonne à filtrer qui change
WorkSheets("Feuil1").Range("A1").AutoFilter Field:=1, Criteria1:=monpremiercritère
WorkSheets("Feuil1").Range("A1").AutoFilter Field:=6, Criteria1:=mondeuxièmecritère

une fois le tableau filtré, pour copier les éléments ( sur une seule ligne):

Worksheets("FeuilSource").Range("A1").SpecialCells(xlCellTypeVisible).Copy Worksheets("FeuilCible").Range("A2")
où A2 est la position du coin supérieur gauche de la copie

A+

 

Dernière édition: 23 Février 2014

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 23 Février 2014

• #13

Re : deux filtres silmutanément par VBA

Worksheets("FeuilSource").Range("A1").SpecialCells (xlCellTypeVisible).Copy Worksheets("FeuilCible").Range("A2")
Range("A2") : mais justement , à ce niveau je cherche "la dernière cellule vide de cette colonne"
mais comme la phrase est déjà compliquée je n' arrive pas à le faire, à chaque fois ma syntaxe est refusée
Sheets("8").Range(("A65535").End(xlUp)).Row + 1.select

en tout cas ton début de phrase est géniale
je t' envoie mon fichier
sur la feuille 8 il faut juste appeler la macro : Macro23encours()
de plus me copie les boutons 😡

 

Pièces jointes

• macro bug4 .xlsm

  648.8 KB · Affichages: 25
• macro bug4 .xlsm

  648.8 KB · Affichages: 46
• macro bug4 .xlsm

  648.8 KB · Affichages: 41

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 23 Février 2014

• #14

Re : deux filtres silmutanément par VBA

re bonjour
j'essaye ça à la place (de range("A2") , et la franchement je panne :
Range("A" & Rows.Count).End(xlUp).Row
Merci de me répondre, je viens de transposer ton code sur la première étape : NICKEL !

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 23 Février 2014

• #15

Re : deux filtres silmutanément par VBA

Re

Code:

DerLigSource = Sheets("8").Range("A" & Rows.Count).End(xlUp).Row
...
...
DerLigCible = Sheets("7").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("8").Range("A2:I" & DerLigSource).SpecialCells(xlCellTypeVisible).Copy Worksheets("7").Range("A" & DerLigCible)

attention avec les nom de feuille type : "7", "8" ... si on oublie les guillemets

WorkSheets("8") et WorkSheets(8) ne donne pas forcément la même feuille.

A

 

Vote positif 0 Vote négatif