XL 2016 image : colorer selon condition

Staple1600

XLDnaute Barbatruc

• 7 Avril 2019

• #2

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)

Code:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Avril 2019

• #3

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,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2019

• #4

Re

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Avril 2019

• #5

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,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2019

• #6

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?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Avril 2019

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Avril 2019

• #8

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2019

• #9

Bonjour

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

Code:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Avril 2019

• #10

Bonjour Dranreb,

Merci pour cette précision

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Avril 2019

• #11

Bonjour Lionel, Bernard, JM,

Une ligne de code suffit amplement :

VB:

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2019

• #12

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Avril 2019

• #13

Bonjour Gérard,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2019

• #14

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Avril 2019

• #15

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.

 

Vote positif 0 Vote négatif