Microsoft 365 Filtrer des colonnes simultanément

Asevea · 21 Octobre 2021

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 · 21 Octobre 2021

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 :

VB:

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 · 27 Octobre 2021

job75 à dit:
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 :

VB:

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

Microsoft 365 Filtrer des colonnes simultanément

Asevea

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Asevea

XLDnaute Nouveau

Discussions similaires