Afficher une ligne masquée en cliquant sur une cellule

[arnaudxtreme]

bonjour à tous

voila, mon problème est assez simple : Dans mon tableau excel, je voudrais que certaines lignes s'affichent lorsque je clique sur une cellule donnée, comment faire ?

merci

 

[VDAVID]

Re : Afficher une ligne masquée en cliquant sur une cellule

Bonjour Arnaudxtreme,

Un fichier exemple (Sans données confidentielles) est toujours mieux pour nous aider à t'aider !

Cependant, une piste avec la propriété
Selection_Change:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    'Range("A1") représente là ou les cellules sur lesquelles cliquer
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        
        'Rows(2) représente la ligne à afficher
        Rows(2).Hidden = False
    
    End If

End Sub

Ce code est à insérer dans le projet de la feuille concernnée:

Alt + F11 ==> Feuille ==> Double clique sur la feuille concernée

Bonne journée !

 

[arnaudxtreme]

Re : Afficher une ligne masquée en cliquant sur une cellule

merci de ta réponse.

Pourrais tu appliquer ce code sur le fichier ci-joint de telle sorte que quand je clique sur la cellule "prénoms", les prénoms correspondant s'affichent ?

merci

 

[VDAVID]

Re : Afficher une ligne masquée en cliquant sur une cellule

Re,

Voilà par exemple comment appliquer la macro à ton cas: (Voir PJ)

A+

 

[arnaudxtreme]

Re : Afficher une ligne masquée en cliquant sur une cellule

super !! serait-il également possible de les remasquer lorsque je reclique sur "prénoms" ?
merci

 

[VDAVID]

Re : Afficher une ligne masquée en cliquant sur une cellule

Re,

Oui tout à fait

Voir PJ

Bonne journée !

 

[arnaudxtreme]

Re : Afficher une ligne masquée en cliquant sur une cellule

génial, dernière requête : serait il possible d'avoir, en complément, l'activation de ce code des lors que la cellule est colorée (en orange par exemple) ?

 

[VDAVID]

Re : Afficher une ligne masquée en cliquant sur une cellule

Salut arnaudxtreme,

Voici le code à appliquer si tu veux qu'il s'exécute uniquement sur les cellules coloriées en orange.
Le code après l'apostrophe permet d'exécuter le code sur nimportequ'elle cellule coloriée.

Le code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    'Range("A1") représente là ou les cellules sur lesquelles cliquer
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        
        'Pour nimportequelle couleur
        'If Target.Interior.ColorIndex = xlNone Then Exit Sub
        
        'Pour la couleur orange seulement
        If Target.Interior.ColorIndex <> 46 Then Exit Sub
        If Range("A2:A5").EntireRow.Hidden = False Then
        
            Range("A2:A5").EntireRow.Hidden = True
            
        Else
        
            Range("A2:A5").EntireRow.Hidden = False
        
        End If
        
    Target.Offset(0, 1).Select
    End If
    

End Sub

Bonne soirée !