Discussion :

[ludovicP]

Bonjour à tous,

je souhaite depuis un tableau attribuer des points en fonction de la couleur(3 possibilités) d'une cellule

exemple:

Code :

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

=si(a1=rouge;10;si(a1=orange;4;si(a1=jaune;2;"")))

il y a bien la mise en forme conditionnelle mais celle ci n'est valable que dans le sens valeur=>couleur

je pense qu'il faut mettre dans la fonction un type rvb:255.0.0 mais je ne trouve pas comment l'appliquer.

merci pour votre aide

[marot_r]

Bonjour.

Je ne pense pas que tu puisse lire la couleur d'une cellule avec les fonctions standard de Excel.

ici une function VBA qui fait cela :

Code :

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

1
2
3
4
Public Function LireCouleur(prmCellule As Range) As Long
    Application.Volatile
    LireCouleur = prmCellule.Interior.Color
End Function

Ca a te retourner un nombre qui correspond au 3 couleurs de bases melangees.
La solution la plus simple pour obtenir cette valeur est

1. Colorier une cellule de chaque couleur.
2. Selectionner la cellule de la couleur qui t'interesse.
3. Aller dans l'editeur de code VBA ([F11])
4. Aller dans la fenetre d'execution immediate ([ctrl][g])
5. Taper ? ActiveCell.Interior.Color [Enter].
   Le nombre affiche est la couleur de la cellule.

Apres tu peux ecrire une formule du type :

Code :

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

=SI(LireCouleur(A1)=255; 10; SI(LireCouleur(A1)=IciValeurPourOrange; 4; SI(LireCouleur(A1)=IciValeurPourJaune; 2; "")))

Et tu pourrais aussi tout faire dans la function VBA :

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
16
17
18
19
20
public function AssignerPoint(prmCellule as range) as long
   dim result as long
   application.volatile
 
   select case prmCellule.Interior.Color
       case 255 'Rouge
           result=10
 
       case IciValeurPourOrange
           result=4
 
       case IciValeurPourJaune
           result=2
 
       case else
           result=0
   end select
 
   AssignerPoint=Result
end function

et ta formule deviant :

Code :

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

=AssignerPoint(A1)

A+

[Menhir]

je souhaite depuis un tableau attribuer des points en fonction de la couleur(3 possibilités) d'une cellule
exemple: =si(a1=rouge;10;si(a1=orange;4;si(a1=jaune;2;"")))

C'est un marronnier de ce forum.
Et la conclusion est toujours la même : utiliser les couleurs comme données d'entrée dans Excel est une TRES mauvaise idée.

A ma connaissance, il n'existe pas de solution fiable, même en passant par VBA, excepter de faire une macro à déclencher "à la main" chaque fois qu'on fait une modification car il n'existe pas de moyen dans Excel ou VBA de considérer un changement de format de cellule (entre autre une couleur) comme élément influent sur un calcul. En pratique ça veut dire que si tu changes de couleur, Excel ne relance pas de calcul, y compris si la fonction est une fonction en VBA, y compris si elle contient une "Option Volatile".

Donc, quelle que soit l'option utilisée, elle ne sera pas fiable.
Ce qui explique pourquoi je dis que c'est une TREEEES mauvaise idée.

Mieux vaut faire le contraire : utiliser une donnée (une note par exemple) qui modifiera la couleur par une MFC.

ici une function VBA qui fait cela :

Code :

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

1
2
3
4
Public Function LireCouleur(prmCellule As Range) As Long
    Application.Volatile
    LireCouleur = prmCellule.Interior.Color
End Function

Fais le test : après avoir saisie la fonction dans une cellule Excel, modifie la couleur de la cellule pointée et regarde le résultat.

[marot_r]

Bonjour.

En effet je n'avais pas pense a cela qu'un changement de couleur ne declenche pas de recalcul.

A mon avis, une facon de combiner les 2 est d'utliser la mise en forme conditionnelle basee sur la valeur et d'afficher le texte dans la couleur du fond donnant l'illusion que la cellule est vide.
Un truc du genre =(A1="R"), afficher en rouge sur fond rouge.
Et comme le metionne Menhir d'utiliser la valeur comme source du test.

A+

[ludovicP]

Bonjour,

Merci pour vos retour sur le sujet.
Je me doutais bien que la manipulation ne semblait pas évidente.
Je vais donc choisir le choix de la raison et me diriger vers une mise en forme conditionnelle .