Code couleur pour VBA.

[Quaisako]

Bonjour le Forum,

Je cherche une palette du code couleur utilisé en VBA.

Ca doit ressembler à çà : "RGB(255, 255, 0)". dans une ligne de code.

Merci d'avance

Quaisako

 

[Daniel DEMILLY]

Bonsoir,

As toi de voir !

A+
D@niel

 

[Mytå]

bonjour le forum

une petite macro vite fait

Sub macro1()
Dim rgbvalue As Long
Dim rouge As Byte
Dim vert As Byte
Dim bleu As Byte

rouge = 204
vert = 255
bleu = 255

rgbvalue = RGB(rouge, vert, bleu)
Cells(1, 1).Interior.Color = rgbvalue

End Sub

Amitié Mytå

 

[pat5]

Bonsoir tout le monde

Daniel , ton fichier est superbe est très instructfg
Bravo

Salut ;o)

 

[Quaisako]

Bonsoir Daniel, Mytå, Pat5, Tout le monde,

Daniel!, désolé, mais je suis incapable de télécharger ton zip. (C'est certainement dû aux récents problèmes du Forum).
Si tu veux bien, essaies directement dans ma B.A.L. Pat5 à réussi à l'avoir et a éveillé ma curiosité.

Mytå!, ta macro fonctione très bien. Mais pour trouver la bonne combinaison rapidement (là, je n'ai pas la patience).

Merci pour tout.

Quaisako

 

[Mytå]

bonsoir le forum

'Convertir les codes couleurs en valeurs RGB

Sub SeeRGB()

Dim RGBC As Long
Dim Blue As Integer
Dim Green As Integer
Dim Red As Integer

RGBC = ActiveCell.Interior.Color

Red = Int(RGBC Mod 256)
Green = Int((RGBC Mod 65536) / 256)
Blue = Int(RGBC / 65536)

MsgBox "RED (rouge): " & Red & vbCr & vbCr & _
"GREEN (vert): " & Green & vbCr & vbCr & _
"BLUE (bleu): " & Blue, , " RGB Values"

End Sub

tu selectionne la cellule donc tu veux le code RGB

simple court et rapide