Private sub image_click sur toutes les images

Bonjour,

J'ai une feuille avec une image par service quand je clic sur l'image le tableau associé apparait/disparait, j'ai fait le code pour un image:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Imageacc_Click() Application.ScreenUpdating = False If Shapes("Image tdb").Visible = True Then Shapes("Image tdb").Visible = Not Shapes("Image tdb").Visible Sheets("Synthèse v2").Rows("5:32").Hidden = False Else Sheets("Synthèse v2").Rows("5:32").Hidden = True Sheets("Synthèse v2").Range("acc").EntireRow.Hidden = False Shapes("Image tdb").Visible = Not Shapes("Image tdb").Visible End If Application.ScreenUpdating = True End Sub

---

Plutôt que de dupliquer ce code pour chaque service j'aimerais savoir si je peux faire un code générique qui se lancerait sur toutes les images de ma feuille.
C'est possible ?

Merci d'avance.

Bonjour,

Premier point : ne pas faire de test If pour contrôler un Booléen.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Imageacc_Click() Application.ScreenUpdating = False If Shapes("Image tdb").Visible = True Then Shapes("Image tdb").Visible = Not Shapes("Image tdb").Visible Sheets("Synthèse v2").Rows("5:32").Hidden = False Else Sheets("Synthèse v2").Rows("5:32").Hidden = True Sheets("Synthèse v2").Range("acc").EntireRow.Hidden = False Shapes("Image tdb").Visible = Not Shapes("Image tdb").Visible End If Application.ScreenUpdating = True End Sub

---

Devient donc (sauf erreur de ma part...) :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Imageacc_Click() Dim b As Boolean Application.ScreenUpdating = False b = Shapes("Image tdb").Visible Shapes("Image tdb").Visible = Not b Sheets("Synthèse v2").Rows("5:32").Hidden = Not b Sheets("Synthèse v2").Range("acc").EntireRow.Hidden = b Application.ScreenUpdating = True End Sub

---

Il est par conséquent facile d'en faire une Sub paramétrée :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub WhenClic(Image As Shape, strRows As String, strRng As String) Dim b As Boolean Application.ScreenUpdating = False b = Image.Visible Image.Visible = Not b Sheets("Synthèse v2").Rows(strRows).Hidden = Not b Sheets("Synthèse v2").Range(strRng).EntireRow.Hidden = b Application.ScreenUpdating = True End Sub

---

Que tu appelles depuis chaque procédure événementielles ImageXXX_Click() :

Code:

---

1 2 3

Private Sub Imageacc_Click() WhenClic Shapes("Image tdb"), "5:32", "acc" End Sub

---

Ou sinon, via un module de Classe...

Déjà, ton code peut se simplifier ainsi :

Code:

---

1 2 3 4 5

Private Sub Imageacc_Click() Sheets("Synthèse v2").Rows("5:32").Hidden = Not Shapes("Image tdb").Visible Shapes("Image tdb").Visible = Not Shapes("Image tdb").Visible If Shapes("Image tdb").Visible Then Sheets("Synthèse v2").Range("acc").EntireRow.Hidden = False End Sub

---

Citation:

---

Envoyé par halaster08

J'ai une feuille avec une image par service

---

Qu'est-ce que tu appelles un "service" (en terme Excel) ?

Merci pijaku pour la réponse, je prend bonne note de ta remarque sur le booléen.

Code:

---

1 2 3

Private Sub Imageacc_Click() WhenClic Shapes("Image tdb"), "5:32", "acc" End Sub

---

Pardon c'était clair pour moi, mais je ne l'ai pas retransmis dans mon premier message, la seule variable qui change dans le code c'est le "acc" qu'on retrouve dans le nom de l'image. l'image est toujours la même c'est une copie avec liaison et je cache tout sauf la partie qui concerne le service choisi

Citation:

---

Envoyé par pijaku

Que tu appelles depuis chaque procédure événementielles ImageXXX_Click() :

---

C'est ce que je cherche a évité, car il y a beaucoup de services et aussi pour ma culture générale.

Ce que j'aimerais faire dans l'idéal (en prenant en compte tes modifs) c'est ça:

Code:

---

1 2 3

Private Sub Image*_Click() WhenClic Shapes("Image tdb"), "5:32", right(image.name,3) End Sub

---

Merci aussi Menhir.

Citation:

---

Envoyé par Menhir

Qu'est-ce que tu appelles un "service" (en terme Excel) ?

---

En terme d'Excel, il y a le nom de l'image: imageXXX, et une plage nommée XXX, où XXX est le nom de du service

Bonjour !

Citation:

---

Envoyé par halaster08

j'aimerais savoir si je peux faire un code générique qui se lancerait sur toutes les images de ma feuille.

---

Oui en utilisant   Application.Caller   pour récupérer le nom de l'image appelante …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci Marc-L.
Problème résolu.

Comme j'ai aussi eu un doute sur le code présenté initialement, si tu veux bien poster ton code final …

Citation:

---

Comme j'ai aussi eu un doute sur le code présenté initialement, si tu veux bien poster ton code final …

---

Le code initial fonctionnait comme prévu même si il était perfectible.

Le code final:
J'ai repris celui de pijaku, avec application.caller pour récupérer le nom de la plage à afficher
Et j'ai affecté la macro ci-dessous à mes images:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub tab_image() WhenClic Sheets("TdB").Shapes("Image tdb"), "5:32", Right(Application.Caller, Len(Application.Caller) - 6) End Sub   Private Sub WhenClic(Image As Shape, strRows As String, strRng As String) Dim b As Boolean Application.ScreenUpdating = False b = Image.Visible Image.Visible = Not b Sheets("Synthèse v2").Rows(strRows).Hidden = Not b Sheets("Synthèse v2").Range(strRng).EntireRow.Hidden = b Application.ScreenUpdating = True End Sub

---

Effectivement là il n'y a plus rien à dire !

Mais pour chipoter, si tu n'es pas l'utilisateur final, au lieu d'inscrire en dur le nom des feuilles de calculs
utilise plutôt leur CodeName, évitant ainsi un souci en cas de feuille renommée …