Bonjour à tous,

Je suis entrain d'écrire un code pour détecter la couleur de la case.
En gros, en colonne B, je voudrais écrire un chiffre en fonction de la couleur en colonne A. Mais j'ai des petits soucis.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function ChercheColor(nombre)
 
For Each Cell In nombre
If Cell.Interior.ColorIndex = 3 Then
Cell.Offset(0, 1).Value = Rouge
 
End If
If Cell.Interior.ColorIndex = 1 Then
Cell.Offset(0, 1).Value = Noir
End If
 
Next Cell
 
End Function
Merci d'avance