Afficher Masquer Images

Bonjour,

Je viens vers vous car je bloque sur la méthode pour afficher une image (ou masquer)

J'ai bien une solution, mais c'est beaucoup de ligne de code. Je voudrais passer par une autre méthode. Méthode qui consisterai a aller chercher le nom de l'image a afficher dans un tableau, avec un système de boucle

Pour information, j'ai un fichier de chiffrage, avec un userform avec lequel on sélection un modèle, une fois le modèle sélectionné, les différents onglet de chiffrage sont remplis, il me reste donc a faire apparaitre le bon plan (l'image) en fonction du modèle choisi.

Donc , je bloque pour créer une boucle sur cette partie :

Dim Wlogo(4) As Shape

Set Wlogo(1) = Worksheets("Plan").Shapes("P_A")
Set Wlogo(2) = Worksheets("Plan").Shapes("P_B")
Set Wlogo(3) = Worksheets("Plan").Shapes("P_C")
Set Wlogo(4) = Worksheets("Plan").Shapes("P_D")

Wlogo( ) semble forcement nécessité d'avoir une constante et c'est là que je bloque. Il y a surment d'autre méthode mais je suis bloqué.

Cdt.

Harissa

Bonjour

Testes

Option Explicit

Sub plan()
Dim Sh As Shape

  For Each Sh In ActiveSheet.Shapes
    If Left(Sh.Name, 2) = "P_" Then
      Sh.Visible = False
    End If
  Next Sh

  ActiveSheet.Shapes("P_" & Range("F2")).Visible = True
End Sub

Merci Banzai64 , encore une fois tu me dépannes !!

L'ensemble de mon projet est quasiment abouti, reste quelques ajustement et surement des surprises ^^

En tout cas j'ai trouvé intéressant de me lancer dans le vba sur excel, ça me plait bien ! Grâce aux infos et aux aides reçus sur ce forum j'y suis arrivé ! et je continuerai !

Cdt

Harissa.