Discussion :

[Turlututuh]

Bonjour a tous,
je veux créer dans des cellules (horizontales ou verticales) adjacentes un degradé de couleurs qui soit continue sur les cellules. Un peu comme ca:


Ce degrade serait donc dans le fond des cellules et on pourrait ensuite ecrire du texte ou des formules dedans.
Avez-vous des idees pour resoudre ce probleme? Sinon est ce impossible?

[ouskel'n'or]

M'étonnerait que ce soit possible, le nombre d'index de couleurs des cellules d'arrêtant à 56

Tu peux toujours essayer de créer un tableau des couleurs que tu ordonneras selon tes désirs à partir de ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 56
    Range(Cells(1, i), Cells(10, i)).Interior.ColorIndex = i
Next i

Te donne toutes les couleurs de cellule, leur index correspondant au N° de colonne.

exemple de tableau à créer : MesCouleurs = array(3, 46, 27... etc)

Enfin, tu utiles ce tableau pour faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 to ubound(MesCouleurs)
    Range(Cells(1, i), Cells(10, i)).Interior.ColorIndex = MesCouleurs( i)
Next i

Bon courage

A+

[Tan]

Pour moi, mettre un dégradé dans une cellule c'est pas possible.

Le seul moyen c'est de créer une image avec ton dégrdé et la mettre en arrieère plan, mais dans ce cas, toutes les cellules de la feuille auront ce dégradé (peut être que toi tu veux ce dégradé que sur quelque scellules, dans ce cas...