Discussion :

[line78]

Bonjour à tous,

Je début et j'aurai besoin de votre aide experte!

j'ai créé le code ci-dessous qui selon la condition 0 ou 1 en D2 code le masquage (0) ou l'affichage (1) de la colonne E.
J'aimerai appliquer la même condition (0;1) non plus à une cellule / colonne isolées mais appliquer le code binaire pour les cellules de D2 à D25 qui applique le résultat de masquage ou affichage respectivement aux colonnes allant de E à AB.

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
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
  Select Case Target.Address
Case "$D$2"
 
  If [D2].Formula = 0 Then
    Columns("E").Hidden = True
 
  ElseIf [D2].Formula = 1 Then
    Columns("E").Hidden = False
 
  Else
    Columns("E").Hidden = False
 
 
End If
 
        End Select
       Application.ScreenUpdating = True
       End Sub

Merci à vous pour vos réponses et votre aide

Line

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 Then
    If Not Intersect(Target, Range("D2:D25")) Is Nothing Then
        Columns(3 + Target.Row).Hidden = Target.Text = 0
    End If
End If
End Sub

[line78]

Bonjour mercatog


Le code fonctionne à merveille.

Merci à toi +++

Line