XL 2019 Afficher Masquer photos avec liste déroulante dans un autre onglet

[pat66]

Bonsoir le forum,

Exceliens,j'ai un problème et j'espère que vous pourrez m'aider à le solutionner
De quoi s'agit t'il ?

Feuil1 = en cliquant sur des formes, on affiche ou on masque les photos qui ont été selectionnées dans les listes déroulantes de la Feuil2
Feuil2 = 3 listes déroulantes
Feuil3 (nommée images) = stocke les images

Je sais afficher des images avec une liste déroulante, mais ce dont j'ai besoin est beaucoup plus difficile pour le néophyte et passionné d'excel que je suis

Tout est dans le fichier ci joint,

Un grand merci pour votre aide

Cdt

 

[sousou]

Bonsoir
Ou veux-tu afficher,centrer et zoomer la photo?

 

[pat66]

bonsoir,

sur la feuil1, en cliquant sur la forme correspondante

merci

 

[sousou]

Un début.
Il faudrait voir ce que tu souhaites pour le zoom et le centrage
Comment veux-tu que cela fonctionne

 

[pat66]

re,

oh oui c'est un très bon début !

Sauf qu'il faudrait qu'en cliquant une deuxième fois sur la forme qui affiche la photo, la photo disparaisse

Que si une photo est déjà affichée et que l'on souhaite en afficher une autre, la photo soit remplacée par la nouvelle, la première disparaisse

j'ai un écran 15 pouces donc :
Pour le zoom = que cela occupe une bonne partie d'écran et centré en même temps que l'affichage de la photo
positionnement = juste en dessous de la barre doutils d'excel

merci

 

[pat66]

re,

j'ai observé ton code,

je pense que pour le zoom et l'emplacement, je pourrais me débrouiller avec par exemple
Selection.ShapeRange.Height = 600
Selection.ShapeRange.Top = 140
Selection.ShapeRange.Left = 400

Donc si tu arrive à masquer la photo en cliquant sur la forme qui l'a affichée, c'est super
et aussi
le fait de cliquer sur une autre forme fait apparaitre la photo corrspondante mais masque la photo déjà affiché, car pour l'instant les photos s'empilent

j'espère être clair
en tout cas
merci

 

[sousou]

Il te suffit d'ajouter "efface" comme ceci
Sub masque()
efface
....

 

[sousou]

re
si tu souhaites effacer l'image sans la réafficher,
remplace par ceci
Sub efface1()
With Sheets(1)
For Each i In .Shapes
If Left(i.Name, 3) <> "cho" Then compte = 1
Next
If compte = 1 Then efface: End
End With

End Sub

 

[pat66]

re,

le problème je ne sais pas comment ajouter sub masque à ta macro

Pourrais tu m'aider à l'integrer à ta macro ?

merci

 

[pat66]

re,
je viens de comprendre que je dois remplacer la fin de ta macro, mais cela beuge, j'ai beau cliquer sur la photo affichée rien ne se passe erreur d'execution 28

 

[sousou]

Tu m'as dit cliquer sur la forme, pour toi j'avais compris que la forme ce sont les boutons?

 

[pat66]

oui les boutons shapes affichent les photos, c'est super !
mais est ce qu'une fois la photo affichée, on peut la masquer en cliquant sur la photo ou sur la forme qui l'a affichée

Pour l'instant, j'ai erreur 28

 

[sousou]

ici toutes les possibilités

 

[pat66]

yesssssssssss, c'est exactement ce dont j'avais besoin, la classe

Un grand merci et mille excuses pour ne pas toujours employer les bons termes

bonne soirée à toi

pat66

 

[sousou]

Prends bonne note, il faut nommer tes images de la même façon que les éléments de tes listbox
image de l'ours nommer ours ect....