Sujet Précédent Sujet Suivant

[VBA-EXCEL] Méthode AutoFilter et Objet Range

Résolu/Fermé
O_ôUps - 29 oct. 2007 à 16:44
 O_ôUps - 29 oct. 2007 à 20:22
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.
A voir également:

1 réponse

Réponse 1 / 1
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
29 oct. 2007 à 18:40
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
O_ôUps
29 oct. 2007 à 20:11
Merci bcp Kobaya. Cela fonctionne du Tonnerre ...

@+
0
O_ôUps
29 oct. 2007 à 20:22
[résolu]
0