couleurs de cellules

[sabrina64]

bonjour....
une petite question...
je travaille avec excel 97

j aurai aimé savoir s il est possible de colorer des cellules avec des couleurs differentes sasn avoir à les definir

exemple
g 10 cellules, et bien j aurai les 10 cellules de couleurs differentes...

si j en ai 3, et bien j aurai les 3 de couleur differente

et cela se faerait automatiquement par macro

merci
bonne journee

 

[sabrina64]

Re : couleurs de cellules

en fait comment sont codées les couleurs puis je les incrémenter afin d avoir des couleurs différentes?

merci

 

[sabrina64]

Re : couleurs de cellules

Dois je utiliser couleur = RGB(i, j, k)
et faire varier i, j k

 

[Spitnolan08]

Re : couleurs de cellules

Bonjour,
une petite recherche et un petit tour par :
https://www.excel-downloads.com/threads/couleur-texte-complement-de-celle-du-fond.77539/
Qui passe en revue l'ensemble des couleurs...devrait t'apporter une réponse.
Cordialement

 

[Temjeh]

Re : couleurs de cellules

Bonjour

Une autre approche

Test ta col A et mais le no de ligne comme couleur mais bon pour les 56 première ligne seulement (car color.ndex n'en a que 56 sinon RGB):

For i = 1 To Range("A65000").End(xlUp).Row
Range("A" & i).Interior.ColorIndex = Range("A" & i).Row
Next i

A+

Temjeh

 

[sabrina64]

Re : couleurs de cellules

merci pour vos reponses.......je vasi tester tout cela...

une autre question , j ai trouvé un code qui me fournit le Code RVB de la couleur choisie pour colorier une cellule

or si je mets cells(1,1).interior.colorindex= mon code RVB (3510568 par exemple) et bien ca ne me marche pas....
je sais q colorindex n'est pas en rgb, mais comment faire.?

pourquoii?

 

[Spitnolan08]

Re : couleurs de cellules

Re,

Cells(1,1).Interior.Color = RGB(a, b, c)

Mais tu aurais trouvé la réponse en consultant le lien que je t'ai indiqué.
Cordialement

 

[sabrina64]

Re : couleurs de cellules

pardon d insister
g regarder les pages qu apres avoir posté
cependant je ne comprend pas comment j peux transformer 3510568 admettons en RGB(a,b,c)

comment obtenir les valeurs de a b c

merci

 

[Spitnolan08]

Re : couleurs de cellules

Re,
Je ne suis pas un spécialiste des couleurs...
D'où sorts tu le code couleur que tu indiques ?
RVB (3510568 par exemple)
Ce n'est pas un code hexadécimal.
Cordialement

 

[sabrina64]

Re : couleurs de cellules

d excelabo
............
je vais y mediter un peu plus

ce code me permet d avoir la palette et de choisir...mé si j n arrive pas à colorer la cellule à partir dece que g recupéré c pas bon!!!

 

[Spitnolan08]

Re : couleurs de cellules

Re,
Voilà le code que j'ai commis, comme dirais Pierrejean, à partir du fil indiqué plus haut.

Sub TransfRGB_RVB()
'***Déterminer le code RGB d'une couleur
'***A partir d'un fil de Pierrejean - Forum Xld
Dim Rouge, Vert, Bleu As Integer
Dim StrCouleur As String
Dim Couleur As Long
Dim ValRGB As Long
Couleur = ActiveCell.Interior.Color
StrCouleur = Right("000000" & Hex(Couleur), 6)
Rouge = CInt("&H" & Mid(StrCouleur, 5, 2))
Vert = CInt("&H" & Mid(StrCouleur, 3, 2))
Bleu = CInt("&H" & Mid(StrCouleur, 1, 2))

ValRGB = RGB(Rouge, Vert, Bleu)

End Sub

Cordialement

 

[Temjeh]

Re : couleurs de cellules

Rebonjour

Ici on trouve aussi un petit prog avec qui on peut identifier les sorte de couleur (avec le compte gouttes) même choisir les couleur d'une page web ou d'une photo, (ca peut t'être pratique):

DM Softs

...dans freeware et RGB editor

A+

Temjeh

 

[sabrina64]

Re : couleurs de cellules

Super g réussit à tout combiner et ca marche exactement comme je veux....

je vous remercie sincèremnet pour votre aide....

bonne après midi.