XL 2016 Afficher/Masquer éléments

[guiyom]

Bonjour,

Je sollicite votre aide afin d'améliorer le fonctionnement d'une partie de mon tableau.
Celui-ci permet a l'aide d'une macro d'afficher et de masquer des lignes tout en masquant le bouton de la ligne précédente à l'aide des éléments de couleurs.
C'est pas très propre et même si cela fonctionne super sur Excel 2019, je n'est pas le même résultat sur le Excel 2010 du boulot.
En effet le bouton qui permet d'afficher la ligne du dessous ne semble pas vouloir changer de couleurs et reste visible sur la version 2010 .

Cordialement

 

[mapomme]

Bonsoir @guiyom,

Je n'ai sans doute pas tout compris 🙁. Pour ce que j'en ai saisi, voir le code dans le module de code de Feuil1.

Sub Afficher_ligne()
Dim nGraph As Long
  nGraph = Val(Split(Application.Caller)(1))
  Rows(17 + nGraph).EntireRow.Hidden = False
  Shapes("Graphique " & nGraph).Visible = False
  If nGraph < 4 Then Shapes("Graphique " & nGraph + 1).Visible = True
  Shapes("bt_RAZ").Visible = True
End Sub

Sub RaZ()
    Shapes("bt_RAZ").Visible = False
    Shapes("Graphique 1").Visible = True
    Rows("18:21").EntireRow.Hidden = True
End Sub

edit 1: version v1b avec une ligne inutile supprimée
edit 2: ajouté commentaires des deux précédentes macros

 

[guiyom]

Incroyable, c'est exactement le but recherché.

Merci beaucoup, je mets ça en place sur le tableau original et je test ça dés demain au boulot sur Excel 2010.

edit : Merci pour le temps accordé à rédiger le document sur les commentaires, je ne pouvais espérer mieux