Filtre vba
guillaume
-
Spartacus1er -
Spartacus1er -
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.
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.
Configuration: Windows XP Firefox 3.0.11
1 réponse
-
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
