formule conditionnelle avec une couleur

[bobo341]

BONsoir,

Je cherche à associer une formule conditionnelle à une couleur :

JE cherche a traduire ceci :

Si la couleur de la cellule est verte cela renvoie à la valeur 1, sinon cela renvoie à la valeur 0, en revanche si la cellule n'a pas de couleur cela renvoie à une valeur vide : ""

Qui peut m'aider??

MERCI D'avance !!

 

[bobo341]

Re : fonction conditionnelle associée à une couleur

qqn a t'il une solution svp????

 

[TheLio]

Re : formule conditionnelle avec une couleur

Hello,
la patience s'impose sur ce forum, tu verras certainement un magicien vébéiste répondre à ta question d'ici peu, mais en premier lieu, il faudrait leur dire si cette couleur est obtenue :
-Par mise en forme conditionnelle
-Coloré simplement
et tu verras, 23 minutes d'attente c'est rien dans une vie 🙂
A++
TheLio

 

[BOISGONTIER]

Re : formule conditionnelle avec une couleur

Bonsoir,

Function couleurFond()
  Application.Volatile
  Select Case Range(Application.Caller.Address).Interior.ColorIndex
    Case 3
       couleurFond = 1
    Case 4
       couleurFond = 0
    Case Else
        couleurFond = ""
   End Select
End Function

JB
Formation Excel VBA JB

 

[bobo341]

Re : formule conditionnelle avec une couleur

Merci pour ses paroles de sagesse 🙂 c'est vrai qu'on est tjs trop pressé ds la vie !

Pour répondre à ta question, la cellule est colorée simplement, pas de mise en forme conditionnelle.

Merci 😉

 

[TheLio]

Re : formule conditionnelle avec une couleur

Re,
en plus de la fonction à BOISGONTIER , il y a une multitude de solutions exposées sur ce fil :
https://www.excel-downloads.com/thr...-cellules-en-couleur-selon-leur-valeur.87135/
(Ca valait la peine d'attendre non?)
A++
TheLio

 

[bobo341]

Re : formule conditionnelle avec une couleur

JE vous remercie pour tous ces tuyaux mais connaissant tres peu la programmation j'ai beaucoup de mal. Je joins donc un fichier exemple dans lequel j'explique exactement ce que je veut réaliser. Pouvez vous appliquer les formules sur ce fichier et me le re-poster de manière à ce que je puisse comprendre ce qu'il fo faire exactement??

Merci bcp pr votre aide !!

 

[BOISGONTIER]

Re : formule conditionnelle avec une couleur

Bonjour,

Voir PJ

=SI(CompteCouleurFondRef(F8:F24;$D$32)+CompteCouleurFondRef(F8:F24;$E$32)>0;CompteCouleurFondRef(F8:F24;$D$32)/(CompteCouleurFondRef(F8:F24;$D$32)+CompteCouleurFondRef(F8:F24;$E$32));0)

Function CompteCouleurFondRef(champ As Range, couleurFond As Range)
  Application.Volatile
  Dim c, temp
  temp = 0
  For Each c In champ
    If c.Interior.ColorIndex = couleurFond.Interior.ColorIndex Then
      If IsNumeric(c.Value) Then temp = temp + 1
    End If
  Next c
  CompteCouleurFondRef = temp
End Function

Pour Maj immédiate si changement de couleur, utiliser le pinceau ou ajouter:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

JB
Formation Excel VBA JB

 

[bobo341]

Re : formule conditionnelle avec une couleur

Excellent, ca marche parfaitement!!

Merci beaucoup pr la solution, c un régal ! 😉

 

[phanou]

Re : formule conditionnelle avec une couleur

Bonjour,

j'ai quasi le même besoin (la formule fonctionne nickel) sauf qu'au lieu de compter le nombre de cellule qui correspondent à la couleur, je veux sommer le contenu de la cellule

merci pour votre retour