Souci de For Each.

[Hulk]

Hello le Forum,

J'ai trouvé un code (merci à l'auteur) qui affiche les valeurs RGB des couleurs, mais uniquement pour une cellule.
Ce que je souhaite, c'est qu'il l'applique à une plage selectionnée.

Malgré mes recherches sur le net concernant For Each, je n'ai pas 😡 réussi à le faire.

Si un génie veut bien m'aider.. et m'expliquer un peu...🙄

Merci pour votre aide.

Bonne nuit à ceux qui vont se coucher 😀

Hulk.

 

[Staple1600]

Re : Souci de For Each.

Bonsoit

UN dernier message AvanT le lit


essai avec ces mots clés dasn gOO LE
Retrouver RGB à partir de ColorIndex

 

[excalibur]

Re : Souci de For Each.

bonjour Hulk Staple1600 le forum une macro qui peut t aider tu selectionne une cellule avec ta couleur puis tu lances la macro connais plus l auteur!!
Option Explicit
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

 

[excalibur]

Re : Souci de For Each.

re,
Sub test()
Dim RGBC As Long, Blue As Integer, Green As Integer, Red As Integer, c As Range
Application.ScreenUpdating = False
For Each c In Range("a2:a57")
c.Activate
RGBC = ActiveCell.Interior.Color
Red = Int(RGBC Mod 256)
Green = Int((RGBC Mod 65536) / 256)
Blue = Int(RGBC / 65536)
c.Offset(0, 1) = Red
c.Offset(0, 2) = Green
c.Offset(0, 3) = Blue
Next c
[a1].Select
End Sub

 

[Hulk]

Re : Souci de For Each.

Hello le Forum, Staple, Excalibur,

Que dire si ce n'est merci !

C'est moi qui tournais en boucle 😀

Faut que je me fasse 2-3 petits exercices sur le For Each vite fait !

Très bonne journée à vous.

Hulk.