Filtrer des colonnes

boutinmatth

XLDnaute Nouveau
Bonjour

Vous trouverez en pièce jointe un document excel

J'aimerais pouvoir cocher un type de chantier (sur ligne 4) et que cela masque les autres colonnes

A titre d'exemple:

Si j'ai un "marché de travaux privés" je coche C4

et cela masque les autres colonnes : B / C / F / G / H / I / J / k comme un filtre

N'étant pas un expert je me rapproche de vous

Merci d'avance
 

Pièces jointes

  • Gestion pièces marchés.xlsx
    12.8 KB · Affichages: 43

Robert

XLDnaute Barbatruc
Repose en paix
Re : Filtrer des colonnes

Bonjour Boutinmatth, bonjour le forum,

En pièce jointe ton fichier modifié. La macro agit au double-clic dans une des cellules de la ligne 4.
Le code :
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range 'déclare la variable pl (PLage)
Dim ca As Range 'décalre la variable ca (Colonnes à Afficher)

Set pl = Application.Union(Columns(2), Columns(4), Columns(6), Columns(8), Columns(10)) 'définit la plage pl
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub 'si le double-clic a lieu ailleurs que dans la plage pl, sort de la procédure
If Target.Row <> 4 Then Exit Sub 'si le double-clic a lieu ailleurs que dans la ligne 4, sort de la procédure (ligne à supprimer éventuellement)
Cancel = True 'interdit le mode "Édition" lié au double-clic
Target.Value = IIf(UCase(Target.Value) = "X", "", "X") 'édite la cellule double-cliquée ("X" si la cellule est vide, Rien si la cellule contenait déjà un "X")
Select Case Target.Value 'agit en fonction de de la valeur de la cellule éditée
    Case "X" 'cas "X"
        Set ca = Target.Resize(1, 2) 'de'finit la plage ca
        Cells.EntireColumn.Hidden = True 'masque toutes les cellules
        ca.EntireColumn.Hidden = False 'affiche les colonnes de ca
    Case Else 'autres cas
        Cells.EntireColumn.Hidden = False 'affiche toutes les cellules
End Select 'fin de l'action en fonction de la cellule éditée
Target.Select 'sélectionne la cellule éditée
End Sub
Le fichier :
 

Pièces jointes

  • Boutinmatth_v01.xlsm
    21.2 KB · Affichages: 42

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna