XL 2019 Filtre avancé avec critères et résultat dans une autre feuille (VBA)

Amilo

XLDnaute Accro
Bonjour le forum,
Il me semble que ma demande n'est pas possible par filtre avancé mais il doit exister probablement une autre manière de faire en VBA,
Je vous transmets un exemple en VBA qui fonctionne sur la même feuille.

En vous remerciant pas avance

P.S : ma plage comporte en réalité plusieurs milliers de lignes (entre 8000 et 20 000) et une dizaine de colonnes
Je ne souhaite pas faire avec Power Query sachant que c'est faisable très facilement

Cordialement
 

Pièces jointes

  • Filtre avancé.xlsm
    20.3 KB · Affichages: 7
Solution
Bonjour

Code:
Set rgCopyToRange = Feuil1.Range("B3").CurrentRegion.Rows(1)



VB:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   
    Application.EnableEvents = False
    With Target.Parent
        Dim rgData As Range, rgCriteria As Range, rgCopyToRange As Range
        Set rgData = .Range("A14").CurrentRegion
        Set rgCriteria = .Range("G4").CurrentRegion
        Set rgCopyToRange = Feuil1.Range("B3").CurrentRegion.Rows(1)
       
        rgData.AdvancedFilter xlFilterCopy, rgCriteria, rgCopyToRange
    End With
    Application.EnableEvents = True
End Sub

Simply

XLDnaute Occasionnel
Bonjour

Code:
Set rgCopyToRange = Feuil1.Range("B3").CurrentRegion.Rows(1)



VB:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   
    Application.EnableEvents = False
    With Target.Parent
        Dim rgData As Range, rgCriteria As Range, rgCopyToRange As Range
        Set rgData = .Range("A14").CurrentRegion
        Set rgCriteria = .Range("G4").CurrentRegion
        Set rgCopyToRange = Feuil1.Range("B3").CurrentRegion.Rows(1)
       
        rgData.AdvancedFilter xlFilterCopy, rgCriteria, rgCopyToRange
    End With
    Application.EnableEvents = True
End Sub
 

Amilo

XLDnaute Accro
Bonjour,
Aussi simplement....cela fonctionne :)
J'ai utilisé la même logique pour préciser également la feuille où doit se trouver la zone de Critères
Et par la même occasion, adapté le nom de ma Feuil1 en Feuil2 dans la fenêtre des propriétés

Pour information, le résultat change dès modification de la plage source et non pas de la zone des critères,
mais ça me va très bien.

Cordialement
 

Discussions similaires