Discussion :

[halaster08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pijaku]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ou sinon, via un module de Classe...

[halaster08]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci aussi 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

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'ai une feuille avec une image par service

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

[Marc-L]

Bonjour !

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, …

[halaster08]

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

[Marc-L]

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

[halaster08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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 …