Discussion :

[kit2412]

Bonjour,

Vous trouverez ci-joint un fichier Excel contenant 2 onglets.
J'aimerai que certaines colonnes de l'onglet "LOTTAGE" soient masquée selon la valeur de la cellule "E8" (liste) de l'onglet "VARIABLES".
Par exemple, si la valeur "1" est choisie dans la liste de la cellule "E8" de l'onglet "VARIABLES", les colonnes S jusqu'à CL de l'onglet "LOTTAGE" doivent être masquées.
si la valeur "2" est choisie dans la liste de la cellule "E8" de l'onglet "VARIABLES", les colonnes K jusqu'à R et les colonnes AA jusqu'à CL de l'onglet "LOTTAGE" doivent être masquées.
Merci pour votre aide

[jfontaine]

Bonjour,

Un petit coup de pouce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sheets("LOTTAGE").Columns.EntireColumn.Hidden = False
 
Select Case Sheets("VARIABLES").Range("E8")
    Case 1
        Sheets("LOTTAGE").Columns("S:CL").EntireColumn.Hidden = True
    Case 2
        Sheets("LOTTAGE").Columns("K:R").EntireColumn.Hidden = True
End Select

[kit2412]

Bonjour jfontaine,

Je viens de tester mais cela ne donne rien.

[jfontaine]

et si tu nous montrais ton code avec l'evenement utilisé

[kit2412]

J'ai recopié le code fourni et rien.

[jfontaine]

et comme le code fonctionne, nous sommes dans une impasse.

le code donnée répond à ta demande, mais ne gère pas le déclenchement (évenement) puisque tu ne dis pas quand ce code doit être exécuté

[papouclo]

Bonjour,
Je pense que les valeurs "critiques" de la cellule E8 sont non pas 1 et 2 mais "/1" et "/2" puisque cette cellule est assujettie à un critère de validation de données (Liste : "/1" ; "/2" ; ... ; "/9")
Essayer avec une procédure évènementielle
Sélectionner la feuille Variables dans l'éditeur
Ecrire le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
 
   If Target.Count > 1 Then Exit Sub
   'permet de sortir de la procédure si plus d'une cellule est sélectionnée
   IF Target <> [E8]  Then Exit Sub
   'permet de sortir de la procédure si la cellule changeant de valeur n’est pas E8
   Sheets("LOTTAGE").Columns.EntireColumn.Hidden = False
   If Target.value = “/1” 	Then
      Sheets("LOTTAGE").Columns("S:CL").EntireColumn.Hidden = True
   End if
   If Target.value = “/2” 	Then
      Sheets("LOTTAGE").Columns("K:R").EntireColumn.Hidden = True
   End if
 
End Sub

Cordialement
Claude