[VBA-E] Enregistrement d'une plage filtrée

**damsmut** · 22/05/2007, 15h28

Bonjour,

Je cherche a récupérer la plage corresspondant aux résultats trouvé lors d'un filtre...

J'ai écrit ce code, ...mais il me récupère toute la zone triée.. mois je souhaite juste la zone des résultats

Help

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub ChangeFilters()
 
    Dim currentFiltrange As String
 
    Sheets(1).Range("A1").AutoFilter field:=5, Criteria1:="5"
 
    With Sheets(1).AutoFilter
        currentFiltrange = .Range.Address
    End With
 
    MsgBox currentFiltrange
 
End Sub

merci

Dams'

**ouskel'n'or** · 22/05/2007, 16h08

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = Application.Range("A1").SpecialCells(xlCellTypeVisible).Address

Je n'ai pas retrouvé la réponse de Silky mais j'ai retrouvé le code

Tu dis

**damsmut** · 22/05/2007, 17h07

merci...

mais t'es sûr ??? le .address pose problème... ça bug :-(

**damsmut** · 22/05/2007, 17h20

par contre ça m'a mis sur la voie.... :-) merci

ça ça fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ChangeFilters()
 
    Dim currentFiltrange As String
 
 
    Sheets(1).Range("A1").AutoFilter field:=5, Criteria1:="5"
 
    Maplage = ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).Address
 
End Sub

**damsmut** · 22/05/2007, 17h23

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = Application.Range("A1").SpecialCells(xlCellTypeVisible).Address

Je n'ai pas retrouvé la réponse de Silky mais j'ai retrouvé le code
Tu dis

Envoyé par damsmut

merci...

mais t'es sûr ??? le .address pose problème... ça bug :-(

en fait c'était le range qui posait problème.... à remplacer par cells :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Maplage = ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).Address

**ouskel'n'or** · 22/05/2007, 17h45

Non, en fait, si tu utilises l'instance, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = Application.Range("A1").SpecialCells(xlCellTypeVisible)

Sans l'instanciation, le code que je t'ai passé fonctionnait chez moi

**damsmut** · 23/05/2007, 08h58

Envoyé par ouskel'n'or

Non, en fait, si tu utilises l'instance, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = Application.Range("A1").SpecialCells(xlCellTypeVisible)

Sans l'instanciation, le code que je t'ai passé fonctionnait chez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub ChangeFilters()
 
    Sheets(1).Range("A1").AutoFilter field:=5, Criteria1:="5"
 
    Maplage = ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).Address
    Set plage = Application.Range("A1").SpecialCells(xlCellTypeVisible)
 
    MsgBox Maplage 'là ça marche
    MsgBox plage 'là ça bug chez moi
 
End Sub

Ben y'a un truc que j'ai pas compris alors.... comment afficher la plage alors avec ta façon ?

**ouskel'n'or** · 23/05/2007, 09h17

Msgbox Plage.address
Mais c'est surtout intéressant quand tu veux parcourir une plage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Set plage = Application.Range("A1").SpecialCells(xlCellTypeVisible)
    For each Cell in plage
        NoLigne = Cell.row
        NoCol = Cell.column
        Ref = Cell.address
        '...
        Cells(NoLigne2, NoCol2).value = Cell
        'etc.
    Next

Tu comprons ?

A+

**damsmut** · 23/05/2007, 10h00

ok merci beaucoup !

**damsmut** · 23/05/2007, 11h36

encore une petite question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage_triée = Application.Range("A1").SpecialCells(xlCellTypeVisible)

Comment faire : je souhaiterait avoir la plage des cellules visibles ET non vides....

j'ai vu qu'il y'a le critère xlCellTypeConstants (Cellules contenant des constantes) ou xlCellTypeBlanks (Cellules vides)...

mais comment coupler 2 critères ?

merci A+

**ouskel'n'or** · 23/05/2007, 11h43

Il existe un code pour masquer les cellules vides (ou les supprimer) Faudrait que tu fasses ça avant le filtre. Le code proposé supprime les lignes vide mais on peut remplacer supprimer par masquer
Une recherche dans le sous-forum Excel "Contribuez"
A+

**ouskel'n'or** · 23/05/2007, 12h10

Tiens, j'ai modifié le code qui va bien pour masquer les lignes vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub MasquerLesLignesVides()
Dim NbLignes As Long, i As Long
    Application.ScreenUpdating = False
    NbLignes = Range("A65535").End(xlUp).Row
 
    For i = NbLignes To 3 Step -1
        If Range("IV" & i).End(xlToLeft).Column = 1 And Cells(i, 1) = Empty Then Rows(i).Hidden = True
    Next i
 
    Application.ScreenUpdating = True
End Sub

A+

**damsmut** · 24/05/2007, 15h20

Merci

encore une petite question concernant ces filtres auto :

Est il possible de lancer une macro lorsque l'utilisateur change un critère du filtre auto en place ?

Je n'ai rien trouvé dans les évènements...

A+

une petite idée ?