Autres afficher et masquer les images

[chaelie2015]

Bonsoir Forum
dans une feuille excel j'ai 49 images superposées je souhaite afficher image0 par défaut ( toujours visible en premier plan) mais dis que je sélectionne un numéro dans une cellule F4 (de 1 a 48) elle s'affiche sur l'image0
Exemple Si je selectionne Numero 16 dans la cellule F4 elle s'affiche Image16 sur l'image0
Meilleurs vœux

 

[sylvanu]

Bonsoir Chaelie,
Le plus simple est de tout mettre invisible puis ensuite, une seule visible.
Le mieux serait que les images s'appelle image0 à image 25 par exemple.
Dans ce cas vous faites :

' Rendre invisible toutes les images'
For i= 0 to 25        ' si 25 images
    ActiveSheet.Shapes("image" & i ).Visible = false    ' image invisible
Next i
' Rendre visible une image ( ici image12 )
    ActiveSheet.Shapes("image12" ).Visible = true        ' image visible

 

[Modeste geedee]

Bonsour®
avec toutes les images superposées de dimensions identiques et alignées centrées

Sub Compteur1_QuandChangement()
ActiveSheet.Pictures("Image" & [F4]).BringToFront
DoEvents
End Sub

 

[job75]

Bonjour chaelie2015, sylvanu, Modeste geedee,

OK Modeste geedee mais utiliser plutôt Val([F4]) pour que Image0 s'affiche si l'on efface F4.

A+

 

[chaelie2015]

Bonjour tous le monde
merci pour les réponses je fais les tester.
merci et A+