Tris via Autofilter en VBA

Version imprimable

12/03/2017, 10h33
ericdev67

1 pièce(s) jointe(s)

Tris via Autofilter en VBA

Bonjour,

J'ai une ligne que je mets en Autofilter et, pour différentes raisons, je dois la mettre en hauteur 0 => donc elle est cachée.

Par contre, j'aurai besoin de l'utiliser pour faire des filtres....

Serait-il possible d'avoir, sous forme de USF ou autre, la sélection de filtres, par exemple :
Pièce jointe 253204

En vous remerciant pour votre aide,

Bonjour,

Si j’ai bien compris, c’est un tableau avec un filtre auto sur les entêtes de colonnes qui sont masquées.
Pour faire simple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Afficher_Masquer_Filtres() ' Figer la ligne de filtres Rows("2:2").Select ActiveWindow.FreezePanes = True ' Si Afficher/Masquer et inversement Rows("1:1").Select If Selection.EntireRow.Hidden = True Then Selection.EntireRow.Hidden = False Else Selection.EntireRow.Hidden = True End If End Sub
Ensuite tu attribues une touche de raccourci du style Ctrl-m (dans macro / option) et up up up

Cordialement

12/03/2017, 12h47
ericdev67

Merci Bric-a-brac,

L'idée est très séduisante :D

Néanmoins, j'ai dû mal formuler ma demande : en ligne 1, j'ai mes entêtes, je mets un Autofilter, car je souhaite filtrer plusieurs données et l'autofilter est sympa car il permet de sélectionner plusieurs filtres.
J'ai un code qui permet de trier, mais je cherche à filtrer, et comme ma ligne 1 est masquée, je souhaiterai qu'un USF ou autre apparaisse pour sélectionner les filtres. Ce USF ou autre serait inclus dans un code ou serait déclenché par un OptionButton et donc afficherai les filtres possibles...

En te remerciant pour ton aide,
12/03/2017, 14h09
ericdev67

Bonjour,

C'est bon, j'ai trouvé : il suffit de créer une listbox et de mettre en propriété Liststyle : Fmliststyleoption et on obtient les filtres possibles et ensuite on trie/filtre à partir des sélectionnés....

merci les tutos de JB (j'ai trouvé la solution en étudiant les tutos sur les formulaires et en les adaptant....)

A+ pour de prochaines aventures

1 pièce(s) jointe(s)

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  On Error Resume Next
  ActiveSheet.ShowAllData
  On Error GoTo 0
  Me.ListBox1.List = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
  Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
 
Private Sub B_go_Click()
  Dim a()
  n = 0
  For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) Then
          n = n + 1: ReDim Preserve a(1 To n)
          a(n) = Me.ListBox1.List(i)
    End If
  Next i
  f.[a1].AutoFilter Field:=1, Criteria1:=a, Operator:=xlFilterValues
  Unload Me
End Sub

Boisgontier

13/03/2017, 18h33
ericdev67

Super Merci JB,

Je te remercie pour ce code qui, une fois de plus, fonctionne parfaitement, et j'ai compris où se situait mon erreur....

Merci,