Si couleur de cellule en case F alors afficher 1 en case L

Bonjour à tous,

J'ai trouver sur le net un petit code VBA concernant la detection de couleur, cependant il ne marche pas.

Mon besoin : si dans la colonne F une case est colorié il faut indiqué sur la meme ligne en case L un 1.

Voici ce code :

Sub distri_couleur()
Dim i
For i = 1 To 12
Worksheets(1).Range("C" & i).Value = Worksheets(1).Range("B" & i).Interior.Color
Next i
End Sub

Merci

Bonjour le Forum

Voila

Sub distri_couleur()
Dim i
For i = 1 To 12
If Worksheets(1).Range("F" & i).Interior.Color <> 16777215 Then
Worksheets(1).Range("L" & i).Value = 1
End If
Next i
End Sub

Ne teste que les 12 premières cellules de la colonne F

@ plus