XL 2019 Dégradé de couleurs en fonction des couleurs contenues dans 2 cellules

[ruliann]

Bonjour,

En A1 j'ai la cellule qui est colorée en jaune.
En B2 j'ai la cellule qui est colorée en rouge.

J'aimerais créer un dégradé de couleur qui part de la couleur contenue en A1 vers la couleur contenue en B2 (donc du jaune au rouge), un dégradé qui comporterait 15 nuances.

Ces 15 nuances seraient affichées entre A3 et A18.

A l'occasion d'un autre post, j'avais récupéré ce bout de code :

Sub degrade1()
Dim coul&, i&
coul = Cells(1, "A").Interior.Color
For i = 20 To 2 Step -1
Cells(i + 5, "A").Interior.Color = coul
Cells(i + 5, "A").Interior.TintAndShade = ((i - 1) + i / 30) / 20
Next
End Sub

Auriez-vous une idée pour l'adapter à mon problème?

 

[ruliann]

@patricktoulon et à @Dranreb
vos solutions fonctionnent très bien, elles vont même au-delà de mes besoins!

je n'aurais pas pensé qu'on pouvait faire des nuances de nuances de dégradé selon l'énergie, angle, force, et angle de teinte. Et pourtant les différences sont bien visibles.

 

[Dranreb]

Bonjour.
J'ai mis des noms aux plages, fait en sorte que la couleur des cellules valeurs changent dans la table EAF quand on change les paramètres et mis des commentaires.

 

[Dranreb]

Bonjour.
J'ai ajouté une troisième façon de paramétrer les jalons de valeurs selon des notions un peu plus courantes: Angle de teinte, luminosité relative et saturation. Elle favorise la spécification d'une couleur bien saturée mais au détriment d'un contrôle précis de la clarté perçue de la surface colorée.