Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

pat66

XLDnaute Impliqué
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
 

Pièces jointes

  • Classeur1.xlsm
    188.9 KB · Affichages: 6

pat66

XLDnaute Impliqué
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

XLDnaute Impliqué
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

XLDnaute Barbatruc
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

XLDnaute Impliqué
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
 
Dernière édition:

pat66

XLDnaute Impliqué
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…