Changement couleur de cellule

[daktari75]

Bonjour à tous, j'utilise EXCEL 2003 et je souhaite changer la couleur d'une cellule. Je souhaite une couleur différente de la palette proposée qui est limitée à 40 couleurs. est ce possible et comment ?
Un grand merci !😱

 

[daktari75]

Re : Changement couleur de cellule

si quelqu'un avait une réponse à m'apporter....

 

[Pierrot93]

Re : Changement couleur de cellule

Bonsoir Daktari

dans barre de menu => outils => option => onglet couleur et tu modifies celle que tu veux.

bonne fin d'après midi
@+

 

[pierrejean]

Re : Changement couleur de cellule

bonjour daktari

un peu de patience !!

avec

Range("A1").Interior.Color = RGB(A, B, C)

et en faisant varier A B et C de 0 a 256 tu accedes a 256 ^3 couleurs

edit

salut Pierrot

 

[Catrice]

Re : Changement couleur de cellule

Bonjour,

ci joint une solution macro qui modifie la color Index N°1 (il y en a 56).
On peut définir les 3 parametres : R V B
Testé sous Excel 2002

 

[Catrice]

Re : Changement couleur de cellule

PierreJean,

Je crois que :
Range("A1").Interior.Color = RGB(A, B, C)
ne fonctionne pas directement (en tous cas pas sous Excel 2002).
En effet, il faut d'abord passer par :
ActiveWorkbook.Colors(x) = RGB(A,B,C)
Pour changer un des 56 index
Puis
[D1].Interior.ColorIndex = x

Avec Range("A1").Interior.Color = RGB(A, B, C), le changement n'est pas graduel cf. fichier joint.

 

[Catrice]

Re : Changement couleur de cellule

Voila le fichier

 

[Pierrot93]

Re : Changement couleur de cellule

Bonjour catrice, PierreJean

je viens de tester le code ci dessous sous 2003 et ca fonctionne..

Range("A1").Interior.Color = RGB(155, 155, 255)

sauf erreur, il me semble d'ailleurs que cela fonctionnait aussi sous 2000...

bonne soirée
@+

 

[Pierrot93]

Re : Changement couleur de cellule

Re

oui effectivement, je comprend mieux avec ton fichier, ca ne bogue pas et a priori, utilise le numéro d'index de couleur, pour lequel RGB est le plus proche...A vérifier si c'est toujours vrai...

@+

 

[pierrejean]

Re : Changement couleur de cellule

salut a tous

eh bien sacré Billou !!

je ne sais pas ce qu'il se passe sur les versions superieures a 2000 mais je viens de tester ceci:

Sub essai()
Dim n As Long
dim m as Long
For n = 1 To 256
For m = 1 To 256
Cells(m, n).Interior.Color = RGB(m, n, 0)
Next m
Next n
End Sub

et le resultat est pour le moins curieux

en tout cas merci Catrice de m'avoir ouvert les yeux