Discussion :

[djimax]

Bonjour à tous,

Je souhaiterai pouvoir masquer des colonnes de manière “automatique” en fonction d’une donnée indiqué dans une cellule.

Mon but est de simuler un filtre mais sur des colonnes afin de n’afficher que certaines colonnes.

J’ai mis un exemple en pièce jointe ( en onglet 2 le résultat attendu ).

Le but serai d’indiquer 2019 dans une cellule par exemple et de masquer ( pas de supprimer ) toutes les colonnes qui ne concerne pas l’année 2019.

Je veux vraiment "masquer" simplement les colonnes sur la même feuille afin de simuler un filtre que je puisse "démasquer" juste après.

Je suppose qu’il faut utiliser du VBA pour faire cela et que ce n’est pas possible avec les fonctions de base d’Excel.

Merci d’avance pour votre aide !

[Menhir]

Dans un autre onglet, tu crées un autre tableau avec une seule colonne dans laquelle tu utilises la fonction RECHERCHEH() ou une combinaison des fonction INDEX() et EQUIV(), ce qui te permettra de chercher dans tes données la colonne de l'année souhaitée et d'afficher ses données.

[MisterP93]

La solution de Menhir me semble la plus simple, mais si tu veux masquer les colonnes, tu peux le faire ainsi :

Dans le VBE, tu double-cliques sur l'onglet "Données" et t'ajoutes le code suivant :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal cible As Range)
    If cible.Address = "$L$1" Then
        Call cacherColonnes
    End If
End Sub

Après tu ajoutes un module avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub cacherColonnes()
 
Dim i, dCol As Integer
dCol = ActiveSheet.Range("A2").CurrentRegion.Columns.Count
 
For i = 2 To dCol
    Columns(i).EntireColumn.Hidden = False
    If Cells(2, i).Value <> Range("$L$1").Value Then
        Columns(i).EntireColumn.Hidden = True
    End If
Next i
 
End Sub