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,

 

[Staple1600]

Bonjour

Je sais pas sur quel net tu cherches mais...
Un exemple (qui implique deux images identiques avec l'une avec fond vert et l'autre fond rouge)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Picture 1").Visible = [G10] = "OK"
ActiveSheet.Shapes("Picture 2").Visible = [G10] <> "OK"
End Sub

 

[Usine à gaz]

Bonjour Staple1600,
Content de te "revoir" 🙂
Je cherche encore sur le net sans trouver.
LOL effectivement je ne dois pas cherche sur le net terrien.
Merci pour ton code.
Je teste et je reviens,
Amicalement,
arthour973,

 

[Staple1600]

Re

arthour973
J'ai évidemment testé sur ton fichier avant de poster.
Donc si tu testes correctement, normalement tu dois revenir content 😉

 

[Usine à gaz]

Re-Bonjour,

Ton code fonctionne bien sur mais il ne fait pas ce que je cherche à faire.
(c'est sans doute pour ça que je n'ai pas encore trouvé sur le net)

Ce que fait ton code :
- il change d'image en fonction du "ok" ou "",

Ce que je cherche à faire :
- n'avoir qu'une seule image et changer sa couleur selon, "ok" ou "".

Je garde ton code pour une autre application possible.
Et je suis content quand même LOL 🙂
Merci à toi,
arthour973,

 

[Staple1600]

Re

Tu as du mal lire ma proposition alors
J'ai bien spécifié que les images sont identiques (sauf le fond)
Donc en clair Picture 2 est une copie de Picture 1, sur laquelle j'ai modifié le fond.
Du coup visuellement, si on superpose exactement les deux images, on a l'impression d'une seule image qui change de couleur, non?

 

[Usine à gaz]

OUI, j'ai bien lu et je te remercie pour ce code.
et bien sur, ça marche bien comme tu le dis.

Mais ce n'est pas exactement ce que je souhaite faire 🙂
j'aimerais trouver pour re-colorier une seule image.
Je sais, je suis "ch..." LOL,

Je continue mes recherches sur mars 🙂

 

[Dranreb]

Bonjour.
C'est possible de le faire avec une seule image à condition qu'elle soit prise d'un fichier .gif ou .png comportant des zones transparentes.

 

[Staple1600]

Bonjour

Ou alors si c'est une forme automatique
(comme dans l'exemple ci-dessous avec une forme Rectangle)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$10" Then
With Me.Shapes("Rectangle 1").Fill
.Visible = msoTrue
.ForeColor.RGB = IIf([G10] = "OK", RGB(0, 176, 80), RGB(255, 0, 0))
.Transparency = 0
.Solid
End With
End If
End Sub

 

[Usine à gaz]

Bonjour Dranreb,

Merci pour cette précision 🙂

Re-Staple1600,
Merci pour ce nouveau code. Je vais tester et je te dirai 🙂

 

[job75]

Bonjour Lionel, Bernard, JM,

Une ligne de code suffit amplement :

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Rectangle 1").Fill.ForeColor.RGB = IIf([G10] = "OK", RGB(0, 176, 80), RGB(255, 0, 0))
End Sub

A+

 

[Staple1600]

Bonsoir job75

Avec une ligne ou plusieurs, le résultat est le même 😉
Ce ne sera pas dans la cible, car arthour veut colorier une image et pas une forme.

 

[Usine à gaz]

Bonjour Gérard,

Merci aussi pour ce code.
Si ce n'est pas possible avec une image, je le ferai avec une forme.
@+🙂

 

[Staple1600]

Re

Dans ce cas, change le titre de ta question 😉
Et utilises les bons mots clés dans tes recherches...
Nous étions en 2015 😉

Changer la couleur d'une forme en fonction du contenu d'une cellule

Bonjour à tous, J'ai fait mes petites recherches à ce sujet mais je n'ai rien trouvé de probant donc je viens solliciter votre expertise. J'aimerais savoir s'il est possible de paramétrer la couleur d'une forme (un cercle basique par exemple) en fonction du contenu d'une cellule. Par...

www.excel-downloads.com

 

[Usine à gaz]

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
Mais OUI, Si ce n'est pas possible avec une image, je le ferai avec une forme.
Mais j'aimerais garder mon titre qui est ma demande initiale.
🙂