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

Signaler
-
 O_ôUps -
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.

1 réponse

Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
212
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
20
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Merci bcp Kobaya. Cela fonctionne du Tonnerre ...

@+
[résolu]