Re : afficher une image en fonction du choix cellule D9??
Hello le Forum, Christian,
J'avais commencé par faire ce code :
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.
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