filtre vba Fermé

Question

Bonjour,

j'ai commencé le VBA il n'y a pas très longtemps et la je bute depuis quelques temps sur un problème;

j'ai une base de données dans laquelle pour chaque colonne j'ai un filtre et ce que je voudrait c'est récupérer dans une autre page a l'aide d'un boutton toutes les lignes qui n'ont pas été filtrées.

Quand je défile dans ma base de données pour prendre uniquement les valeur non filtrées (donc celles qui sont visibles ) il me pren qd mème les valeurs que je ne veux pas.

Spartacus1er · Answer

Bonjour        

Pour récuper les valeurs d'une colone filtrer; il faut utiliser la propriété  ".SpecialCells(xlCellTypeVisible)" d'un object "Range"

Voici un exemple pour des donnée sur A2:G4000
Dim Temp(4000)
Dim Donnees(4000,7)
N_Val=0
For i = 1 to 7
     For Each Cellule In Range("A2:G4000").SpecialCells(xlCellTypeVisible)
            N_Val = N_Val + 1
            Temp(N_Val) = Cellule.Value
            Donnees(N_Val, i) = Temp(N_Val)
     Next
Next i


Une propriété pratique permet de connaitre le nombre de données visible (Titre compri)
With Range("_FilterDatabase").Rows
    N_Found = .SpecialCells(xlVisible).Count - N_C
    N_Found = N_Found / N_C
End With

Bonne continuation

Filtre vba

1 réponse

Discussions similaires