[VBA-EXCEL] Méthode AutoFilter et Objet Range Résolu/Fermé

Question

Bonjour, 

En programmation vba, il est possible de définir des filtres sur une feuille :

Selection.AutoFilter Field:=1, Criteria1:="TOTO"

Le filtre affiche un certains nombre de lignes en fonction des critères défini.

Comment récupérer ces lignes dans un objets Range ?

Merci d'avance.

Kobaya · Accepted Answer

salut O_ôUps,

ceci devrait répondre à ton problème   :-)
Sub Macro2()
    Dim rngSelect   As Range
    
    ' j'ai supposé que les filtres sont sur la ligne 1
    Range("A1").Select
    
    ' filtrage
    'Selection.AutoFilter Field:=1, Criteria1:="TOTO"
    Selection.AutoFilter Field:=7, Criteria1:="*paris*"
    ' rngSelect =   toutes les cellules visibles (non masquées par le filtre)
    '               contigües à la cellule active
    Set rngSelect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
    
    ' copy de la zone sélectionnée
    rngSelect.Copy
    
    Debug.Print rngSelect.Address
    ' ...
    ' commandes
    ' diverses et variées
    ' ...
    
    Set rngSelect = Nothing
End Sub