Microsoft 365 Filtrer des colonnes simultanément

[Asevea]

Bonjour à tous

J'aurais besoin de votre expertise en filtrage

J'ai un rétroplanning sur lequel est affiché les mois, les semaines et les jours de la semaine.

Si je suis en semaine S42, j'aimerais filtrer simultanément les taches "non vide" de la semaine 41, 42 et 43. Et faire cela quelque soit la semaine Sn, Sn-1 et Sn+1.

Pour info, il y a une formule en B5 qui permet de filtrer les services.

Voici une copie du fichier si ca permet d'y voir plus clair

Merci pour votre aide,

 

[job75]

Bonjour Asevea,

Vous voulez masquer/afficher des colonnes, il ne s'agit pas à proprement parler d'un filtrage.

Voyez le fichier .xlsm joint et ces macros dans le code de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 2 Or Target(1) = "" Then Exit Sub
Cancel = True
Application.ScreenUpdating = False
Columns(3).Resize(, Columns.Count - 2).Hidden = True
Range(Target(1, 0).MergeArea, Target.Offset(, 1).MergeArea).EntireColumn.Hidden = False
End Sub

Sub Afficher_tout()
Columns.Hidden = False
End Sub

La 1ère se déclenche quand on fait un double-clic en ligne 2.

La 2ème est affectée au bouton.

A+

 

[Asevea]

Bonjour Asevea,

Vous voulez masquer/afficher des colonnes, il ne s'agit pas à proprement parler d'un filtrage.

Voyez le fichier .xlsm joint et ces macros dans le code de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 2 Or Target(1) = "" Then Exit Sub
Cancel = True
Application.ScreenUpdating = False
Columns(3).Resize(, Columns.Count - 2).Hidden = True
Range(Target(1, 0).MergeArea, Target.Offset(, 1).MergeArea).EntireColumn.Hidden = False
End Sub

Sub Afficher_tout()
Columns.Hidden = False
End Sub

La 1ère se déclenche quand on fait un double-clic en ligne 2.

La 2ème est affectée au bouton.

A+

Bonjour,

Merci pour votre réponse

Je vais essayer, en espérant que ca fonctionne.

Bonne journée