afficher une image en fonction du choix cellule D9??

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais pouvoir afficher telle ou telle image en fonction du choix cellule de la cellule D9.

voir fichier...

Je vous remercie pour le tempsque vous voudrez bien m'accorder.

Bien amicalement,

Christian

 

[Creepy]

Re : afficher une image en fonction du choix cellule D9??

Hello le Forum, Christian,

J'avais commencé par faire ce code :

If Cells(9, 4).Value = "Soir" Then
    ActiveSheet.Shapes("Picture 1").Visible = False
    ActiveSheet.Shapes("Picture 2").Visible = True
Else
    ActiveSheet.Shapes("Picture 1").Visible = True
    ActiveSheet.Shapes("Picture 2").Visible = False
End If

Ca marche impeccable et pas de soucis. Mais je me suis dit que tu voudrais peut être rajouter d'autres images. Bon si c'est 1 ou 2 images ce n'est pas grave mais après c'est lourd !!!

J'ai donc fait un code plus, comment dire..., transversal.
Voila donc en PJ un code qui fonctionnera quelque soit le nombre d'image dans ta feuille.

SEULE CONTRAINTE : Nommer tes images avec EXCTEMENT le même nom que ce que tu mets dans ta liste déroulante.

A+

Creepy

 

[Ti_]

Re : afficher une image en fonction du choix cellule D9??

Salut
Il y a de multiples posts qui traitent ce problème. Nous avons d'ailleurs mis avec Véri un fichier sur Vériti qui présente quelques réponses, mais on peut en trouver d'autre, ici même ou sur le forum de Vériti

VeriTi V 3, le site des amis d'Excel et OOo - Programmes VeriTi

 

[Christian0258]

Re : afficher une image en fonction du choix cellule D9??

Re bonjour à tout le forum,

Merci Creepy pour ta macro c'est impec.

Merci Ti pour le lien je regarde ça.

Bien amicalement,

à+

Christian.