Cacher des lignes dans une feuille Résolu/Fermé

Question

Bonjour à tous.
J'ai un petit souci, pour faire fonctionner correctement, une procédure vba.
je souhaiterais que les lignes 30:39, les lignes 59:60 soit cachées, quand ma cellule $G$4 est égale à la valeur C11 (teste alphanumérique) ou à la valeur C12.
Si la valeur de $G$4, est égale à C01 ou à C02, alors toutes les lignes sont affichées.
j'ai essayé de réaliser une procédure, mais les lignes 59:60, ne veulent pas se cacher.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$4" Then
Select Case Target.Value
Case "C11": Rows("30:39").Hidden = True
Case "C11": Rows("59:60").Hidden = True
Case "C01": Rows("30:39").Hidden = False
Case "C01": Rows("59:60").Hidden = False
End Select
End If
End Sub
Merci encore de votre aide
titi32600

jordane45 · Answer

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$G$4" Then
Select Case Target.Value

Case "C11":
    Rows("30:39").Hidden = True
    Rows("59:60").Hidden = True

Case "C01":
 Rows("30:39").Hidden = False
 Rows("59:60").Hidden = False
End Select
End If
End Sub

michel_m · Answer

Bonjour
Option Explicit'-----------------------Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$G$4" Then    Select Case Target.Value        Case "C11", "C12"            Rows("30:39").Hidden = True            Rows("59:60").Hidden = True        Case "C01", "C02"            Rows("30:39").Hidden = False            Rows("59:60").Hidden = False    End SelectEnd IfEnd Sub

Cacher des lignes dans une feuille

2 réponses

Discussions similaires