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]

Re

Rien de gentil ou de méchant
La question parlait de vert et rouge
Donc simplement quand je lis:"C'est exactement ça"
Je dis que ce n'est pas exact.
Ni plus, ni moins.

 

[Usine à gaz]

Je ne suis pas en accord avec toi,
car même si j'ai parlé de couleur, le fond du problème est cité dans le titre.
et c'est résolu

Je garde également ton code ainsi que le code précédent de Gérard car ils sont également très bons pour d'autres situations

Un sincère merci à vous deux (comme d'habitude)
lionel,

 

[job75]

PictureFormat.ColorType donne très peu de possibilités, voyez ceci :

https://docs.microsoft.com/fr-fr/office/vba/api/office.msopicturecolortype

 

[Staple1600]

Re

arthour973
Tu auras beau chercher, tu ne trouveras que:

Spécifie la transformation de couleur appliquée à une image.
Nom Valeur Description
msoPictureAutomatic 1 Transformation de couleur par défaut
msoPictureBlackAndWhite 3 Transformation noir et blanc
msoPictureGrayscale 2 Transformation nuances de gris
msoPictureMixed -2 Transformation mixte
msoPictureWatermark 4 Transformation filigrane

Je différencie donc cela d'un véritable changement de couleur.
(Passer d'une couleur à une autre)

Mais bon, puisque pour toi, c'est résolu, c'est le principal.

EDITION: Désolé pour la collision, job75

arthour973
Reste à explorer la voie suggérée par Dranreb.

 

[job75]

C'est vrai qu'au post #1 Lionel parle de couleur de fond, alors colorons le fond :

Private Sub Worksheet_Change(ByVal Target As Range)
[D9:E11].Interior.ColorIndex = IIf([G10] = "OK", 5, 3)
End Sub

 

[Usine à gaz]

Re -Gérard et à tous,

Gérard tu es un magicien de l'extrême
Merci pour tant de perspicacité

Staple1600 :
arthour973
Reste à explorer la voie suggérée par Dranreb.
Effectivement.
LOL, ce sera un autre épisode.
Pour l'heure, je vais au dodo car demain 6h boulot-boulot.

Je vous souhaite une bonne nuit.

Merci à vous 2 sans oublier Dranreb pour tant de générosité
Amicalement,
lionel,

 

[job75]

Ma dernière solution utilise ce qu'a préconisé Dranreb...

Bonne nuit.

 

[Staple1600]

Bonne nuit

Job75
J'avais interprété la suggestion de Dranreb autrement.
Je pensais qu'il y avait un rapport avec ceci

Élaboration et utilisation de jeux de couleurs.

Mise au point facile de jeux de couleurs pour UserForm, Shape et cellules, voire images calculées. Possibilité de capturer un pixel n'importe où sur l'écran. Module de classe Couleur pour utilisation dans d'autres projets VBA.

www.excel-downloads.com

et/ou utiliser Gdiplus.dll en VBA pour "changer" la couleur d'une image.

 

[karen]

Je ne sais pas si j'ai bien lu se que tu demandais, mais je tes envoyé se que j'ai compris...

 

[Dranreb]

Bonsoir.

Je pensais qu'il y avait un rapport avec ceci

Ah, nooon ! Ça n'a rien à voir. Enfin presque …
D'abord il contient bien une image conforme à ce que je décrivais: la fameuse "Image 1" de l'"Étude 1". Créée en .bmp avec un énorme "PetitsBmp.xlsm", traité ensuite sous paint.net v4.1.6, baguette magique pour sélectionner les 4 zones à l'extérieur du disque, effacé la sélection, enfin enregistré le tout sous .png.
Second lien: mon "PetitBmp.xlsm" utilise partout exactement les mêmes calculs que ceux effectués par le module de classe Couleurs de cette fourniture. Mais ce dernier ne peut actuellement produire directement des pixels de fichier .bmp, car les octets rouge et bleu doivent y être intervertis, de plus il n'est pas équipé pour produire en fichier .bmp une map en tableau calculé. C'est un peu un autre sujet …

 

[Staple1600]

Bonjour le fil

=>Dranreb
Je précise ma pensée
En rapport, dans le sens : y puiser pistes, intuitions et procédures VBA.
Tout comme l'utilisation de Gdiplus.dll
Je pensais que tu avais peut-être une piste autre que celle proposée par Job75.

 

[Usine à gaz]

Je ne sais pas si j'ai bien lu se que tu demandais, mais je tes envoyé se que j'ai compris...

Bonjour Karen,

Et je t'en remercie
Amicalement,
arthour973,

 

[Dranreb]

Bonjour.
Je n'ai pas de piste sur la manipulation d'images par des dll.

 

[Staple1600]

Re

=>Dranreb
Un exemple d'utilisation ici
(je pensais qu'il y avait peut-être une piste, mais c'est trop compliqué pour moi)
Et ce serait plus dans l'idée de dessiner "une image" on the fly puis de changer sa couleur.

 

[Dranreb]

Pour moi aussi. Et je n'ai pas trouvé chez moi de gdiplus.dll. Mais je n'ai peut être pas suffisamment cherché.