cellules à colorier

[alex]

Bonjour,

J'ai un petit problème avec de cellules que je dois colorier:

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then
Range("c37").Value = CheckBox1.Caption
Range("e6,e7,e8,e31").Interior.ColorIndex = 6
masquage1 = False
Else
Range("c37").Value = ""
masquage1 = True
Range("e6,e7,e8,e31").Interior.ColorIndex = 2
End If

If CheckBox2.Value = True Then
Range("c44").Value = CheckBox2.Caption
masquage2 = False
Range("e7,e8,e9,e31").Interior.ColorIndex = 6
Else
Range("c44").Value = ""
masquage2 = True
Range("e7,e8,e9,e31").Interior.ColorIndex = 2
End If

If CheckBox3.Value = True Then
Range("c50").Value = CheckBox3.Caption
masquage3 = False
Range("e10,e11,e31").Interior.ColorIndex = 6
Else
Range("c50").Value = ""
masquage3 = True
Range("e10,e11,e31").Interior.ColorIndex = 2
End If

End Sub

Une fois mon choix fait, je voudrais que toutes les cellules qui n'ont pas été coloriées en jaune soient coloriées en noir.

Si quelqu'un a une idée, merci beaucoup.

A+, Alex

 

[eric]

Bonjour,

dand mon exemple, je souhaite que toutes les cellules situées dans mon champs a1: f10 soit coloriées en noir si elles n'ont pas de couleur :
A mettre à la suite de ton code

Dim cellule As Range
For Each cellule In Range("a1:f10")
If cellule.Interior.ColorIndex = xlNone Then
cellule.Interior.ColorIndex = 1
End If
Next cellule


Bonne journée