Discussion :

[cyrill.gremaud]

salut

Comment afficher avec debug.print un code de couleur aléatoire composé des 3 parties R-V-B qui sont des valeurs entre 0 et 255

merci

[zazaraignée]

Salut

Ça dépend de ce que tu veux afficher au juste.

Code :

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

1
2
3
4
5
6
7
8
9
Dim maCouleur As Long
Dim r As Integer, g As Integer, b As Integer
Randomize
r = Int(Rnd * 255)
g = Int(Rnd * 255)
b = Int(Rnd * 255)
' affiche la valeur entière
' puis la valeur hexadécimale bbggrr sur 6 chiffre max
Debug.Print CStr(RGB(r, g, b)), Hex(RGB(r, g, b))