Detection couleur mais problème de code

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:

---

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

bonjour,

et c'est quoi "un petit soucis" ???

comment appelle tu ta fonction ?

Code:

---

=ChercheColor(A1)

---

Je n'arrive pas à afficher mon chiffre :)

Je vois pas de quel chiffre tu parle ?

mais déjà avec une fonction de feuille de calcul tu ne peux pas agir sur des cellules (valeurs, format ) de ton classeur ... tu peu "juste" afficher le résultat retourné par ta fonction ...

place donc ta fonction à l'endroit ou tu veux ton résultat (colonne B) :

Citation:

---

Envoyé par En B2

=Cherche(A2)

---

Code:

---

1 2 3 4

Function ChercheCouleur(rCell As Range) As Integer Application.Volatile ChercheCouleur = rCell.Interior.ColorIndex End Function

---

Un peu de lecture :
Les fonctions personnelles dans Excel

Merci beaucoup !
Je débute et j'essaye de comprendre comment cela fonctionne mais je confonds certaines choses :oops:

Attention cette fonction n'est mise à jour que sur changement de valeur dans la feuille (ou touche F9) le changement de couleur seul ne suffit pas ;)

Merci de cette précision :D:ccool: