cacher des colonnes en cliquant sur un bouton

Bonjour

Par clair car les 2 noms sont écrits sur 2 lignes mais rien n'indique à quelle société correspondent les colonnes...

Bonjour cyremia et bienvenue sur XLD

Il faut modifier Columns("12:613").EntireColumn.Hidden par le nom des colonnes que tu veux masquer. Mais comme le dit kris, comment savoir à qui appartient la ou les colonnes??

Et il y a cette ligne que je ne comprends pas
If Range("e4").Value = "WEE-END" Then. Où est inscrit WEE-END???
Si c'est la date, c'est g3 et non e4.

Si c'est un week-end
If Weekday(Range("g3").Value) = vbSaturday Or Weekday(Range("g3").Value) = vbSunday Then
Rows("12:315").EntireRow.Hidden = True
Else
Rows("12:315").EntireRow.Hidden = False
End If

Et Private Sub Worksheet_Change(ByVal Target As Range) est à mettre dans le module de la feuille et non dans un module standart.


EDIT: bonjour kris, on c'est croisés.

Bonsoir à tous

@cyremia : Ton fichier en retour. J'ai inscrit les noms dans les colonnes et ajouté une liste déroulante(cellule jaune) pour afficher ou masquer les sociétés. Le bouton sert à masquer les lignes, double-clique sur la feuille pour tout afficher. J'éspère que ça conviendra.