Microsoft 365 afficher image selon valeur cellule

[juju91]

Bonjour à tous ,

j'ai encore besoin de votre aide.

Voici mon problème.
j'ai dans une feuille une plage de cellules ( I6 à I96) dans laquelle il y a une liste ( oui ou non) pour toutes les cellules de la plage définie.
Dans cette même cellule j'ai une ''image'', qui me permet d'imprimer d'autres onglets qui sont cachés.
Je souhaiterais que si l'opérateur choisit oui dans la liste déroulante l'image correspondante s'affiche et si il choisit non l'image n'apparaisse pas.
Auriez-cous quelques pistes a me transmettre.
Ci-joint un fichier ( de base) pour plus de clarté.
Par avance merci
Cdt

 

[sousou]

Bonjour
regarde ceci,
un msgbox affiche l'état et le nom de l'image ( à supprimer)
un problème subsiste, plusieurs image portent le même nom

 

[juju91]

Bonjour
regarde ceci,
un msgbox affiche l'état et le nom de l'image ( à supprimer)
un problème subsiste, plusieurs image portent le même nom

Merci c'est parfait

 

[Bea007R]

Bonjour, pourquoi je n'arrive pas à démarrer

merci pour votre aide

 

[Dranreb]

Bonjour @Bea007R.
Que voulez vous dire ?
Une Private Sub Worksheet_Change dans un module d'objet Worksheet est une prise en charge de l'évènement Change de cet objet qui se produit quand le contenu d'une cellule est changé (et non sa valeur renvoyée par une formule qui n'a pas été changée). Son exécution n'a donc pas à être démarrée manuellement.

 

[Bea007R]

Bonjour @Bea007R.
Que voulez vous dire ?
Une Private Sub Worksheet_Change dans un module d'objet Worksheet est une prise en charge de l'évènement Change de cet objet qui se produit quand le contenu d'une cellule est changé (et non sa valeur renvoyée par une formule qui n'a pas été changée). Son exécution n'a donc pas à être démarrée manuellement.

merci,
que dois-je mettre à la place de Private Sub Worksheet_Change(ByVal Target As Range) ?

 

[Dranreb]

Ça dépend dans quel autre contexte vous voulez qu'elle s'exécute.
Utilisez les deux larges listes déroulantes qui surmontent la fenêtre de code, liste de gauche Objet, liste de droite Procédure.
Si vous implantez par exemple un Bouton ActiveX dans la feuille (qui deviendra alors un CommandButton supporté par un OLEObject), son nom figurera dans la liste Objet pour le module de l'objet Workseet la représentant, afin d'y implanter le modèle de sa procédure de prise en charge quand vous y sélectionnerez son nom.
Notez que vous aurez à y déclarer la variable Target et à l'initialiser vous même. Une Private Sub CommandButton1_Click n'en transmet pas.