Filtrer une ligne pour afficher une colonne

Re,

on va essayer quand même, clic sur tes cellules fusionnées soit A1:E1 et défusionne tes cellules
sélectionne la cellule A1 et Données/Validation des données/sélectionne Liste/clic dans Source et pointe tes cellules de A2 à E2 et OK

sélectionne tes cellules A1:E1 et refusionne ces cellules

clic droit sur ton onglet de ta feuille/Visualiser le code, dans la partie vide colle ce code

Private Sub Worksheet_Change(ByVal target As Range)
 Dim CellAdress, c As Range
    On Error Resume Next
    If Not Intersect(target, [A1]) Is Nothing Then
        Application.ScreenUpdating = False
            With ActiveSheet.Range("2:2")
            Set c = .Find([A1], LookIn:=xlValues)
                CellAdress = c.Address
            End With
        Range(CellAdress).Select
        Columns("A:E").EntireColumn.Hidden = True
        ActiveCell.EntireColumn.Hidden = False
        Application.ScreenUpdating = True
    End If
    Range("A1:E1").Select
End Sub

revient sur ta feuille de calcul et teste le code en sélectionnant un mot dans tes cellules fusionnées sur ta ligne 1
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

reprend mes explications sur le post précédent mais colle ce code plus complet

Private Sub Worksheet_Change(ByVal target As Range)
 Dim CellAdress, c As Range
    On Error Resume Next
    If Not Intersect(Selection, [A1:E1]) Is Nothing Then
        Application.ScreenUpdating = False
        Columns("A:E").EntireColumn.Hidden = False
            With ActiveSheet.Range("2:2")
            Set c = .Find([A1], LookIn:=xlValues)
                CellAdress = c.Address
            End With
        Range(CellAdress).Select
        Columns("A:E").EntireColumn.Hidden = True
        ActiveCell.EntireColumn.Hidden = False
        Application.ScreenUpdating = True
    Range("A1:E1").Select
    End If
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Bonjour,

pas très clair comme explication, tu peux développer ta demande s'il te plait sur ce que tu veux faire.

Bonjour,

Je souhaiterais que la cellule fusionné de la ligne 1 possède un menu déroulant avec en choix les critères de la ligne 2. Si "a" est sélectionné, faire disparaître les autres colonnes.

J'espère que je suis plus clair.

Re,

pour la liste de validation sur ta première ligne, pas de problème, par contre pour masquer les cellules il y a une par de code VBA si tu as quelques notions

Re,

VBA je ne m'en suis jamais servis.
Un filtre ne peut pas fonctionner ? Car lorsque j'applique un filtre sur la ligne 1 j'obtiens uniquement les valeurs de la colonne A.

Super !!!
Merci ça fonctionne parfaitement comme j'avais envie avec le deuxième code.
J'ai re-fusionner les cellules A1:E1 à la fin car sinon je ne pouvais pas refaire de sélection.

T'es explications on été très claires et très précises. Un bon démarrage sur VBA.

Merci encore ;)