Afficher des lignes cachées en cliquant dans une cellule
Bonjour à tous,
Je souhaiterez faire afficher des lignes cachées juste en cliquant sur une cellule au dessus de ces lignes.
Pour être plus clair, je souhaite afficher le contenu des lignes 2 à 5 juste en cliquant dans la cellule A1. idem avec les lignes 7 à 9 avec la cellule A6 et ainsi de suite.
En sachant que les lignes cachées peuvent avoir un nombre de ligne différents à chaque fois.
Si vous avec une solution pour les lignes, il est sans doute possible de le faire également pour les colonnes ?
Je vous joint un petit fichier pour le test.
Merci d'avance
Cordialement
Salut yolojo,
une façon de faire : indiquer en regard d'une de ces lignes "cliquables" la valeur de la dernière ligne cachée de ce bloc.
Dans cet exemple, je place en [B:B] cette valeur que la macro récupère pour cacher ou révéler ce bloc de lignes.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Offset(0, 1) > 0 Then
iRow = Target.Row + 1
iRow1 = Target.Offset(0, 1)
Rows(iRow & ":" & iRow1).Hidden = IIf(Rows(iRow & ":" & iRow1).Hidden = False, True, False)
End If
'
End SubA creuser...
A+
Merci Curulis57 pour ton code.
Je ne comprend pas tout, mais c'est très fort !
Cordialement