couleurs de cellules

S

sabrina64

XLDnaute Occasionnel

• 28 Juin 2007

• #2

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

 

Vote positif 0 Vote négatif

S

sabrina64

XLDnaute Occasionnel

• 28 Juin 2007

• #3

Re : couleurs de cellules

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 28 Juin 2007

• #4

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 28 Juin 2007

• #5

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

 

Vote positif 0 Vote négatif

S

sabrina64

XLDnaute Occasionnel

• 28 Juin 2007

• #6

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?

 

Dernière édition: 28 Juin 2007

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 28 Juin 2007

• #7

Re : couleurs de cellules

Re,

Code:

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

 

Dernière édition: 28 Juin 2007

Vote positif 0 Vote négatif

S

sabrina64

XLDnaute Occasionnel

• 28 Juin 2007

• #8

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 28 Juin 2007

• #9

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

 

Vote positif 0 Vote négatif

S

sabrina64

XLDnaute Occasionnel

• 28 Juin 2007

• #10

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!!!

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 28 Juin 2007

• #11

Re : couleurs de cellules

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

Code:

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 28 Juin 2007

• #12

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

 

Vote positif 0 Vote négatif

S

sabrina64

XLDnaute Occasionnel

• 28 Juin 2007

• #13

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.

 

Vote positif 0 Vote négatif