Discussion :

[Darkangel2014]

Bonsoir à tous

je ne saisis pas encore toutes les subtilités de l'autofilter.
j'arrive à filtrer et obtenir les lignes affichées avec le visiblerow
mais quand je tente d'identifier toutes les lignes dans un range cela ne fonctionne pas

En effet TotalRange selectionne bien les lignes hormis le header mais semble t'il plus car quand je te tente d'afficher en listbox totalrange cela affiche tous les résultats entre

dans mon cas je voudrais pouvoir avoir seulement les lignes de l'autofilter..

quelqu'un pourrait il m'éclairer merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub List_Projects()
Dim Rng As Range
Dim derlign As Integer
Dim PJ_page As Worksheet
 
 Set PJ_page = Sheets("Projects")
 derlign = PJ_page.cells(Rows.Count, "A").End(xlUp).row
 
PJ_page.Range("A1").AutoFilter _
 field:=13, _
 Criteria1:="Active", _
 VisibleDropDown:=True
 
 cnt = 1
For Each cnt In Intersect(PJ_page.UsedRange, PJ_page.Range("A2:A" & derlign).SpecialCells(xlCellTypeVisible))
visiblerow = cnt.row
MsgBox (visiblerow)
Next
 
Set TotalRange = PJ_page.UsedRange 
Set TotalRange = TotalRange.Offset(1, 0).Resize(TotalRange.Rows.Count - 1, _
                                               TotalRange.Columns.Count)
 
Set Rng = TotalRange
 
End Sub

[ARTURO83]

Bonsoir,

Ces quelques éléments devraient vous aider

Code :

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

1
2
3
4
    PJ_page.Range("A1").AutoFilter field:=13, Criteria1:="Active", VisibleDropDown:=True
    NbCol = [ZZ1].End(xlToLeft).Column 'nombre de colonnes
    NbLig = Range("_FilterDataBase").Resize(, 1).SpecialCells(xlCellTypeVisible).Count - 1 'Nombre de lignes après filtrage
    Range("_FilterDataBase").Resize(, NbCol).SpecialCells(xlCellTypeVisible).Copy 'vers la destination de votre choix

Cdlt

[Darkangel2014]

merci à vous
cela fonctionne bien pour colonne mais pour les lignes non

La méthode Range de l'objet _Global à échoué!

[ARTURO83]

Bonjour,

Afin que je puisse voir où ça coince, pourriez-vous déposer ici un extrait de votre fichier? (remplacez les données confidentielles par des valeurs bidons)

[Darkangel2014]

je vais tenter de préparer cela même si cela risque de prendre du temps

toutefois et après examen c'est

_FilterDatabase qui ne semble même pas reconnu...

Code :

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

PJ_page.Range("_FilterDataBase").Select

c'est encore la méthode range de worksheet cette fois qui ne fonctionne pas

[Darkangel2014]

Voici un fichier retraçant mon soucis

prob_autofilter.xlsm

merci par avance pour votre aide