Discussion :

[mattaw7]

Bonjour,

Je dispose d'un fichier Excel en pièce jointe et je souhaite mettre en place un filtre horizontal sur la première ligne "Formation" sous la forme d'un bouton "Rechercher une formation".

Dès que l'on clique sur ce bouton, un UserForm s'ouvre avec une liste de l'ensemble des formations.

Quand on sélectionne la formation voulu on clique sur OK et le tableau affiche uniquement la formation voulu avec le détail.

Merci beaucoup de vos propositions par avance.

[Philippe Tulliez]

Bonjour,
Voir réponse ici sujet similaire.

[BlueMonkey]

Bonjour,

En partant d'un UseForm contant un ListBox et un bouton <Ok>:

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
21
22
23
24
25
26
27
28
29
30
31
32
'Bouton <Ok>'
Private Sub CommandButton1_Click()
    Dim lastCol As Integer
    lastCol = Range("B1").End(xlToRight).Column
 
    Application.ScreenUpdating = False
        Range(Cells(1, 2), Cells(1, lastCol)).EntireColumn.Hidden = True
        Columns(ComboBox1.ListIndex + 2).EntireColumn.Hidden = False
        UserForm1.Hide
    Application.ScreenUpdating = True
End Sub
 
'Affichage du UserForm
Private Sub UserForm_Activate()
    Dim lastCol As Integer
 
    Application.ScreenUpdating = False
        Range(Cells(1, 2), Cells(1, Columns.Count)).EntireColumn.Hidden = False
        lastCol = Range("B1").End(xlToRight).Column
 
        Dim vals As Variant
        vals = Range(Cells(1, 2), Cells(1, lastCol))
 
        ComboBox1.Clear
        Dim vali As Integer
        For vali = 1 To UBound(vals, 2)
            Call ComboBox1.AddItem(vals(1, vali))
        Next vali
        ComboBox1.Text = vals(1, 1)
    Application.ScreenUpdating = True
 
End Sub

[BlueMonkey]

Merci BlueMonkey.
Peux-tu l'intégrer dans mon fichier joint dans mon message précédent, cela m'aiderai énormément.
Merci d'avance.

Ci-joint un fichier intégrant le filtre horizontal.

Quelques informations sur le fonctionnement du forum :
- les sujet doivent être traité sur le forum. Merci d'utiliser le bouton <Ajouter une réponse> pour les questions techniques
et de ne conserver <MP> que pour des messages privés.
- au sujet des pièces jointes sur les premiers post voir ici.

A+

[mattaw7]

Merci encore BlueMonkey.

C'est exactement ce que je veux. Par contre, j'ai deux questions:

1/ A quoi sert le module1?
2/ Mon fichier final comportera énormément de formations donc énormément de colonnes. Qu'est ce qu'il faut modifier dans le code pour avoir le choix dans le filtre sur toute les formations?

[BlueMonkey]

A quoi sert le module1?

A rien, c'était pour faire des tests.

Qu'est ce qu'il faut modifier dans le code pour avoir le choix dans le filtre sur toute les formations?

Rien, tant que les formations sont en ligne 1.