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.
A voir également:
- Filtre vba
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre whatsapp - Accueil - Messagerie instantanée
- Filtre teams - Accueil - Visio
- Filtre manga - Accueil - TikTok
- Excel compter cellule couleur sans vba - Guide
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
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
