Masquer une colonne selon une date
Résolu
CharlesJ.
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
CharlesJ. Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
CharlesJ. Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'essaye de mettre en place un système qui me permettrai de masquer une colonne quand la valeur d'une cellule ne correspond a la valeur d'une cellule de la colonne.
Je m'explique:
J'ai les cellules d'une ligne qui font référence au nombre de semaine dans l'année. (B3= 1; C3 = 2 ; D3 = 3...).
Dans une autre cellule à part, j'ai mis une liste déroulante pour sélectionner: Semaine : 1, 2, 3 ... ( le chiffre est en K2)
Comment faire pour que lorsque je suis en Semaine 2, il n'y ai que la colonne C qui apparaisse étant donnée qu'en C3 il y à 2. Et que les autres cellules soit masquer.
Merci de votre aide.
Cordialement,
CharlesJ.
J'essaye de mettre en place un système qui me permettrai de masquer une colonne quand la valeur d'une cellule ne correspond a la valeur d'une cellule de la colonne.
Je m'explique:
J'ai les cellules d'une ligne qui font référence au nombre de semaine dans l'année. (B3= 1; C3 = 2 ; D3 = 3...).
Dans une autre cellule à part, j'ai mis une liste déroulante pour sélectionner: Semaine : 1, 2, 3 ... ( le chiffre est en K2)
Comment faire pour que lorsque je suis en Semaine 2, il n'y ai que la colonne C qui apparaisse étant donnée qu'en C3 il y à 2. Et que les autres cellules soit masquer.
Merci de votre aide.
Cordialement,
CharlesJ.
1 réponse
-
Bonjour,
A voir avec l'exemple.
https://mon-partage.fr/f/kMNmzZYH/
par contre, je n'ai pas mis la liste déroulante en K2 mais en A2, sinon lors du masquage, elle sera masquée.-
-
Re,
La macro avec la liste déroulante en A2Private Sub Worksheet_Change(ByVal Target As Range) Dim i% If Not Application.Intersect(Target, Range("A2")) Is Nothing Then Range("A:BC").EntireColumn.Hidden = False For i = Cells(3, Columns.Count).End(xlToLeft).Column To 2 Step -1 If Cells(3, i).Value <> Cells(2, 1) Then Columns(i).Hidden = True Next i End If End Sub
A mettre dans la feuille, pas dans un module -
-
-
Re,
Teste avec mon classeur d'origine, cela fonctionne comme tu le veux
https://www.cjoint.com/c/IAlkT5r4HKU
-