Cacher des lignes dans une feuille
Résolu
Titi32600
Messages postés
92
Statut
Membre
-
michel_m Messages postés 18903 Statut Contributeur -
michel_m Messages postés 18903 Statut Contributeur -
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
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
A voir également:
- Cacher des lignes dans une feuille
- Comment faire un livret avec des feuilles a4 - Guide
- Partager des photos en ligne - Guide
- Cacher une conversation whatsapp - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
2 réponses
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
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 Select
End If
End Sub
Merci encore, cela fonctionne très bien
merci
titi32600