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

sousou

XLDnaute Barbatruc

• 27 Novembre 2021

• #2

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 27 Novembre 2021

• #3

bonsoir,

sur la feuil1, en cliquant sur la forme correspondante

merci

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 27 Novembre 2021

• #4

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

 

Pièces jointes

• images.xlsm

  172.9 KB · Affichages: 7

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 27 Novembre 2021

• #5

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 27 Novembre 2021

• #6

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Novembre 2021

• #7

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Novembre 2021

• #8

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 28 Novembre 2021

• #9

re,

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

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

merci

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 28 Novembre 2021

• #10

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: 28 Novembre 2021

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Novembre 2021

• #11

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 28 Novembre 2021

• #12

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: 28 Novembre 2021

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Novembre 2021

• #13

ici toutes les possibilités

 

Pièces jointes

• images.xlsm

  173.7 KB · Affichages: 8

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 28 Novembre 2021

• #14

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Novembre 2021

• #15

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....

 

Vote positif 0 Vote négatif