XL 2016 image : colorer selon condition

[Usine à gaz]

Bonjour à toutes et à tous,

Toujours dans mes lubies, je voudrais colorer une image selon condition.

par exemple si :
- cellule G10 = OK image couleur de fond en vert sinon en rouge.

Je cherche sur le net et je ne trouve pas d'exemple pour les images.
Auriez-vous la solution ?

Je joins un petit fichier test.
Avec mes remerciements,
Je vous souhaite à toutes et à tous un très beau et bon dimanche,
Amicalement,
arthour973,

 

[karen]

Bonjour à toutes et à tous,

Toujours dans mes lubies, je voudrais colorer une image selon condition.

par exemple si :
- cellule G10 = OK image couleur de fond en vert sinon en rouge.

Je cherche sur le net et je ne trouve pas d'exemple pour les images.
Auriez-vous la solution ?

Je joins un petit fichier test.
Avec mes remerciements,
Je vous souhaite à toutes et à tous un très beau et bon dimanche,
Amicalement,
arthour973,

1) clic sur la cellule G10
2) clic sur Format puis Mise en Forme Conditionelle
3) Condition est égale à' ='ok'
4) clic sur format
5) Remplissage (Choisi ta couleur)
6) clic sur OK
7) clic sur ajouter
8) Recommence pour ''

 

[karen]

Bonjour à toutes et à tous,

Toujours dans mes lubies, je voudrais colorer une image selon condition.

par exemple si :
- cellule G10 = OK image couleur de fond en vert sinon en rouge.

Je cherche sur le net et je ne trouve pas d'exemple pour les images.
Auriez-vous la solution ?

Je joins un petit fichier test.
Avec mes remerciements,
Je vous souhaite à toutes et à tous un très beau et bon dimanche,
Amicalement,
arthour973,

 

[Staple1600]

Re, Bonjour karen

Re Staple1600,
j'ai pas compris il me semble que le fil dont tu parles n'est pas de moi
ou alors, je deviens fol-dingue LOL

Petit problème de lunettes ?
Je n'ai jamais écris que le fil était de toi.
Mais simplement que si tu avais fait des recherches avec les mots-clés dans le moteur de recherche d'XLD, tu serais certainement tombé sur ce fil de 2015 que je cite dans mon précédent message et on peut lire la même syntaxe (ou quasi) que celle que job ou moi te proposons en 2019.
Quand à ma suggestion de renommer, c'est simplement qu'une image (Picture) ne se pilote pas exactement comme une Shape (forme) en VBA.

 

[Usine à gaz]

OUI, bien sur mais je ne pouvais pas chercher avec des mots clés qui ne sont pas ma demande

 

[Staple1600]

Re

arthour973
Et pourtant ...

Au fait, tu as essayé la proposition de karen?

Et si tu optes pour la Shape, ta question est résolue ou pas?

 

[Usine à gaz]

Je n'avais pas vu le poste de karen.
Bonjour Karen, merci pour ta proposition mais je ne cherche à faire une MFC
Amicalement,
arthour973

 

[Staple1600]

Re

Bonjour Karen, merci pour ta proposition mais je ne cherche à faire une MFC

Est-ce que tu l'as testée au moins?
(Ne serait-ce que par courtoisie ou juste par curiosité )

Donc question toujours non résolue ?
(je posais la question précédemment mais toujours ce problème de lunettes on dirait

NB: Tu as vu le lien de mon précédent message?

 

[Usine à gaz]

Je ne sais pas si j'ai des problèmes de lunettes LOL mais je ne cherche pas de MFC

Bien sur par courtoisie et surtout par respect des solutions données, j'ai regardé

 

[Staple1600]

Re

En tout cas, tu ne réponds pas aux questions qu'on te pose...
(Il y en avait trois dans mon précédent message)

 

[Usine à gaz]

OUI, j'ai regardé le lien et je t'avais répondu en te disant que le fil n'était pas de moi (donc j'avais vu
Même si tes codes fonctionnent ainsi que celui de Job et je vous en remercie,
Effectivement, par rapport à la question posée, ce n'est pas résolu.
Et garder le titre initial permettra peut-être de trouver ultérieurement une solution

 

[job75]

Un exemple de modification de couleur d'une "Picture" :

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Picture 1").PictureFormat.ColorType = IIf([G10] = "OK", msoPictureAutomatic, msoPictureGrayscale)
End Sub

 

[Usine à gaz]

Ah Gérard... je savais
Enfin je savais que pour la beauté du geste la solution serait trouvée.
Vraiment, je suis encore une fois "cloué".
ça marche super.

Un grand merci Gérard, c'est exactement ça
lionel,

 

[Usine à gaz]

LOL Voilà qui est résolu avec précision

 

[Staple1600]

Re

arthour973
C'est exactement ça ou presque...

par exemple si :
- cellule G10 = OK image couleur de fond en vert sinon en rouge.

 

[Usine à gaz]

LOL Staple1600,
C'est ni gentil pour moi et ni pour Gérard

Mon titre de fil est :
image : colorer selon condition
Et le code de Gérard le fait avec précision.

Il est vrai que j'ai indiqué vert ou rouge ... il me reste à modifier pour obtenir mes couleurs ... NON ?
et LOL, il faut bien que je travaille un peu

Amicalement,
arthour973,