Discussion :

[zarktoune]

Bonjour,

après de multiples recherche sur internet a propos des filtres ( personnalisés ) , je n'ai pas trouvé de réponse à mes attentes.

j'ai une feuille de calcul comportant a peu pres 100 colonnes et 30 000 lignes.
des filtres automatiques sont présents.

lorsque je filtre dans un premier temp la colonne X, cela m'affiche des résultats (grâce au filtres ).

un exemple de ce que je voudrais ( exemple non concret mais similaire a mon cas ) :

j'ai 10 colonne (numero, gabarit ..... ) , je filtre à partir de la colonne 8 ( couleur ) pour avoir la couleur GRISE, 5 lignes aparaisse au lieu de 20.

parmi les 5 lignes, sur la colonne 3 ( marque de la voiture ), apparaisse 5 marque differente de voitures ( 1 par ligne ).

je voudrais que toute les ligne comportant les marques présente apres le premier filtre apparaisse.

est-ce possible de le faire a partir d'un filtre ?

merci d'avance

[helas]

Bonjour,
Avec un filtre automatique, si la sélection se fait sur la couleur uniquement, toutes les lignes seront affichées dont plusieurs avec la même marque.

[mercatog]

Exemple en feuil1
colonne A: marque de voiture
colonne B: couleur
On cherche d'abord la couleur rouge
ensuite on enlève ce filtre et on applique un nouveau filtre sur toutes les marques qui ont au moins une voiture de couleur rouge

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
Dim LastLig As Long, Nb As Long, i As Long
Dim c As Range
Dim Tb() As String
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
   .AutoFilterMode = False
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
   .Range("A1:B" & LastLig).AutoFilter field:=2, Criteria1:="Rouge"
   Nb = .Range("A1:A" & LastLig).SpecialCells(xlCellTypeVisible).Count
   If Nb > 1 Then
      ReDim Tb(1 To Nb - 1)
      For Each c In .Range("A2:A" & LastLig).SpecialCells(xlCellTypeVisible)
         i = i + 1
         Tb(i) = c.Value
      Next c
      .AutoFilterMode = False
      .Range("A1:B" & LastLig).AutoFilter field:=1, Operator:=xlFilterValues, Criteria1:=Tb
   End If
End With

[Vadorblanc]

Bonjour mercatog
J'essaie ton code mais j'ai une erreur sur la ligne:

Code :

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

 .Range("A1:B" & LastLig).AutoFilter field:=1, Operator:=xlFilterValues, Criteria1:=Tb

Merci
Bien cordialement