Macro Afficher image dans une feuille excel

[Toug]

Bonjour,
J'essaie sans succés de trouver un moyen d'afficher une image en fonction de paramêtres. En gros si la cellule A9 vaut "En Cours", je voudrais afficher une image dans la feuille excel. Je pense qu'il faut une macro mais j'en suis pas sur.
Je débute en vba, alors il faut tout m'expliquer,

Merci d'avance.

 

[mth]

Re : Macro Afficher image dans une feuille excel

Bonjour,

Tes images sont dans le fichier ou dans un répertoire?
Il n'est effectivement pas certain qu'il faille une macro, mais il faut que tu nous en dises plus , joins un exrait de fichier sans données confidentielles pour que les uns et les autres puissent t'aider au mieux.

@ +

mth

Edit: Hello 00

 

[Toug]

Re : Macro Afficher image dans une feuille excel

A l'aide :-(

 

[DoubleZero]

Re : Macro Afficher image dans une feuille excel

Bonjour à toutes et à tous,

Bienvenue , Toug,

Un essai en pièce jointe.

A bientôt.

Bonjour, mth .

 

[Toug]

Re : Macro Afficher image dans une feuille excel

Je préfèrerais que les images soient dans le fichier
J'ai joint un fichier light pour expliquer ce que je veux faire:
Je voudrais que les camemberts s'affichent lorsque leur statut est à Clos. (Camembert pour statut 1)

J'espère être clair.

 

[Toug]

Re : Macro Afficher image dans une feuille excel

Merci beaucoup DoubleZero, ça a l'air bien, mais par contre je ne sais pas comment tu as fait, Il faudrait que tu m'explique.

 

[JCGL]

Re : Macro Afficher image dans une feuille excel

Bonjour à tous,
Salut 00,
Re Mimi,

Un essai avec liste de validation

Bise 00
A+ à tous

 

[DoubleZero]

Re : Macro Afficher image dans une feuille excel

Re-bonjour, bonjour, JCGL ,

@ JCGL :

SUPERBE !

Je n’aurai pas à me promener dans les méandres des if… then… ...

Merci + bise itou

 

[Toug]

Re : Macro Afficher image dans une feuille excel

J'ai essayer d'inclure le travail de JCGL dans mon vrai fichier et il ne se passe rien.

Voici ce que j'ai fait:
Dans VBA, j'ai mis ce code dans Feuil1 sous Microsoft Excel Objects:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Call test
End Sub

J'ai mis ce code dans un module:

Sub test()
        If Range(A28) = "Clos" Then ActiveSheet.Shapes("Picture 2").Visible = True
        If Range(A28) = "En cours" Then ActiveSheet.Shapes("Picture 2").Visible = False
    End Sub

Il y a d'autre manipulations à faire pour que ça fonctionne?

 

[JCGL]

Re : Macro Afficher image dans une feuille excel

Bonjour à tous,

Sans fichier pas facile de tenter de t'aider...

Vérifie que ton image s'appelle bien Picture 2

A+ à tous

 

[Toug]

Re : Macro Afficher image dans une feuille excel

J'ai bien nommé l'image correspondante avec Picture 2, enfin je l'ai nommé dans la zone qui indique le nom des cellules. C'est ici qu'il faut nommer les images aussi non?

Voici un extrait du fichier, mais si tu changes quelque chose dis le moi.

 

[JCGL]

Re : Macro Afficher image dans une feuille excel

Bonjour à tous,

Je ne vois pas le code évennementiel dans la feuille.
Le reste me parait correct mais je n'ai pas 2007 ou > ici.

A+ à tous

 

[Toug]

Re : Macro Afficher image dans une feuille excel

Le code évennementiel , c'est peut-être ça qui me manque, mais c'est quoi et ça se met ou?

 

[JCGL]

Re : Macro Afficher image dans une feuille excel

Bonjour à tous,

Dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Call Test
End Sub

Si cela ne fonctionne toujours pas, dépose en *.xls (XL97-2003)

A+ à tous

 

[Toug]

Re : Macro Afficher image dans une feuille excel

En effet, je l'avais oublié. Maintenant je l'ai mis et j'ai une erreur lorsque je change la valeur de la cellule A28. J'ai du faire une erreur de syntaxe.