Automatiser une formule

Bonjour,

Comment faire pour automatiser cette formule:

Selection.Interior.Color = RGB (255, 227, 0)

En ayant les nombres RGB dans 3 colonnes A(R), B(G), et C(B), environ 500 lignes.

Résultat:

la couleur de fond correspondante en colonne D (dans cet exemple 'jaune')

Merci beaucoup

Bonjour Geoffroy

Voici ce qu'on peut faire

Sub Test()
  Dim dLig As Long, Lig As Long
  dLig = Range("A" & Rows.Count).End(xlUp).Row
  For Lig = 2 To dLig
    Range("D" & Lig).Interior.Color = RGB(Range("A" & Lig), Range("B" & Lig), Range("C" & Lig))
  Next Lig
End Sub

@+

Bonjour,

merci

tardivement, dsl je me suis perdu ;)

@+