Salut,

Il faut adapter le code que tu as trouvé pour qu'il s'exécute sur les lignes que tu veux, a priori juste une boucle de la premère à la dernière ligne remplie.

Malheureusement ma non- maîtrise VBA  ne le permet pas de le faire... 🤪

Voici le code que j'ai trouvé .. si jamais 😁

PrivateSub Worksheet_Change(ByVal Target As Range)With Target If.Count =1ThenIf.Column <4Then Cells(.Row,4).Interior.Color = RGB(Cells(.Row,1), Cells(.Row,2), Cells(.Row,3))EndIfEndIfEndWithEndSub

Quelques directions pour modifier.

Crée un module où mettre la macro, insère la et renomme la, par exemple "ColorieCellules".

Pour parcourir toutes les lignes tu peux utiliser une boucle For et en supposant que toutes les cellules de la colonne A soient remplies jusqu'à la dernière ligne utile alors le code suivant te donnera le numéro de la dernière ligne :

Dim lastRow as Long
lastRow = Cells(1,1).End(xlDown).Row

Ensuite dans la boucle il suffit de reprendre la ligne qui change la couleur de fond de la cellule et ça devrait être bon.

Je te remercie d'avoir pris le temps de me répondre 

J'ai trouvé une ligne simple qui répond à ma demande :

 Range("D1").Interior.Color = RGB(Range("A1"), Range("B1"), Range("C1"))

Comme déjà évoqué mes connaissances sont très limitées en VBA. j'ai essayé de mettre en place une boule avec For mais  sans succès il doit me manquer quelque chose.. car ma formule initiale fait référence à des cellules précises et je ne vois pas comment faire évoluer ces valeurs dans la boucle (comme passer de A1 à A2 etc)

A quoi ressemblerait le code si je devais par exemple réexecuter la ligne de code sur 100 lignes par exemple?

merci bcp par avance 

Cdt

Quand je dois faire "bouger" la cellule que je regarde (par exemple quand je parcours des lignes) je préfère utiliser Cells plutôt que Range, c'est un peu plus direct.

Par exemple Cells(10,3) correspond à la ligne 10 colonne 3 c'est l'équivalent de Range("C10").

Si je fais varier la ligne je peux Cells(numero_ligne,3).

Un exemple de boucle qui parcourt les lignes 1 à 100 et écrit le calcul du numéro de ligne au carré en colonne B :

Sub test()
    Dim i_row As Long
    For i_row = 1 To 100
        ' Ecrit dans la feuille active, attenton à ne pas écraser des données en exécutant ce code au mauvais endroit
        Cells(i_row, 2).Value = i_row * i_row
    Next i_row
End Sub

Un immense merci c'est parfait!!!

Sub test()
    Dim i_row As Long
    For i_row = 1 To 100
        Cells(i_row, 4).Interior.Color = RGB(Cells(i_row, 1), Cells(i_row, 2), Cells(i_row, 3))
    Next i_row
End Sub

Excellente journée