Discussion :

[Devilju69]

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

[SfJ5Rpw8]

bonjour,

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

comment appelle tu ta fonction ?

[Devilju69]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ChercheColor(A1)

Je n'arrive pas à afficher mon chiffre

[SfJ5Rpw8]

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) :

=Cherche(A2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Devilju69]

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

[SfJ5Rpw8]

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