[COLOR=NAVY]If[/COLOR] .Cells(i, k + 1).Interior.ColorIndex = 3 [COLOR=NAVY]Then[/COLOR] [COLOR=GREEN]' Rouge[/COLOR]
Me.Controls("Textbox" & k + ((i - 3) * 100)).BackColor = RGB(255, 0, 0)
[COLOR=NAVY]ElseIf[/COLOR] .Cells(i, k + 1).Interior.ColorIndex = 4 [COLOR=NAVY]Then[/COLOR] [COLOR=GREEN]'Vert[/COLOR]
Me.Controls("Textbox" & k + ((i - 3) * 100)).BackColor = RGB(0, 255, 0)
[COLOR=NAVY]ElseIf[/COLOR] .Cells(i, k + 1).Interior.ColorIndex = 8 [COLOR=NAVY]Then[/COLOR] [COLOR=GREEN]' Bleu[/COLOR]
Me.Controls("Textbox" & k + ((i - 3) * 100)).BackColor = RGB(0, 255, 255)
[COLOR=NAVY]ElseIf[/COLOR] .Cells(i, k + 1).Interior.ColorIndex = 6 [COLOR=NAVY]Then[/COLOR] [COLOR=GREEN]' Jaune[/COLOR]
Me.Controls("Textbox" & k + ((i - 3) * 100)).BackColor = RGB(255, 255, 0)
[COLOR=NAVY]ElseIf[/COLOR] .Cells(i, k + 1).Interior.ColorIndex = -4142 [COLOR=NAVY]Then[/COLOR] [COLOR=GREEN]' vide[/COLOR]
Me.Controls("Textbox" & k + ((i - 3) * 100)).BackColor = RGB(255, 255, 255)
[COLOR=NAVY]End If[/COLOR]