CompteCouleurFond SI la valeur de la cellule est > à 6,50

[Aurelie ACPP]

Bonjour,

Je ne sais pas comment compter le nombre de cellules qui sont (par exemple) verte et qui contiennent (par exemple) 7,00.

Pouvez-vous, SVP, m'aider.

Merci.

Aurélie.

 

[BOISGONTIER]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour,

Fonction perso matricielle

JB

 

[JHA]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour à tous,

la couleur verte provient elle d'une MFC ou est ce aléatoire?

JHA

 

[hbenalia]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour à tous,

Si les cellules sont toutes colorées de la même couleur si elles contiennent des valeurs suppérieures à 6,50 on utilisera simplement la fonction NB.SI (par exemple) par l'équation :

=NB.SI(Plage de cellules;">6,50")

Cordialement

 

[Aurelie ACPP]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour,

En fait, elles ne sont pas toutes de la même couleur.
Pour être plus précise, voici ce que je souhaite (calcul du nombre de paniers) :
Je color la cellule en jaune lorsque les gars sont à l'atelier et en vert, lorsqu'il sont sur chantier. Par contre on donne 1 panier uniquement s'il travail + de 6,5 h / jour.
Evidemment prix du panier différent selon s'ils sont à l'atelier ou au chantier !!!

C'est pour cela que je souhaite calculer le nombre de cellule jaune > ou = à 6,5 et nombre de cellule verte > ou = à 6,5.

J'espère être explicite.

Merci.

D

 

[job75]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour à tous,

Il faudrait voir le fichier pour connaître les codes des couleurs utilisées.

Mais a priori un code de ce genre doit faire l'affaire :

Sub CompteCouleurs()
Dim coul1&, coul2&, c As Range, n1#, n2#
coul1 = 4 'vert
coul2 = 6 'jaune
For Each c In ActiveSheet.UsedRange
  If c >= 6.5 Then
    If c.Interior.ColorIndex = coul1 Then n1 = n1 + 1
    If c.Interior.ColorIndex = coul2 Then n2 = n2 + 1
  End If
Next
MsgBox "Vert : " & n1 & vbLf & "Jaune : " & n2 'juste pour tester
End Sub

A+

 

[hbenalia]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour,

Un petit extrait de ton fichier serait le bienvenu...

@+

 

[Aurelie ACPP]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour,

Ci-joint le fichier...
Voir cellule K2.

Merci.

 

[Aurelie ACPP]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Re-bonjour,

Personne pour m'aider...???
Je souhaiterais que dans la cellule K2 s'inscrive le nombre de cellule si >= 6.5 et si couleur cellule G35 de la plage G25:R34.

Merci.

 

[Ninter]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour une tentative de réponse, avec la formule sommprod puis additionner les autres colonnes qui concernent les jours restants de la semaine

Code,

SOMMEPROD((couleurfond(H25:H34)=couleurfond(G35))*(H25:H34>=6.5))

i.

Ninter

 

[job75]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Re,

1) La fonction modifiée :

Function couleurFond(champ As Range)
Application.Volatile
If champ.Count = 1 Then
  couleurFond = champ.Interior.ColorIndex
Else
  Dim t, u, i&, j%
  t = champ 'matrice
  u = UBound(t, 2)
  For i = 1 To UBound(t)
    For j = 1 To u
      t(i, j) = champ(i, j).Interior.ColorIndex
    Next
  Next
  couleurFond = t
End If
End Function

2) La formule modifiée en K2 :

=SOMMEPROD(ESTNUM(G25:R34)*(G25:R34>=6,5)*(couleurfond(G25:R34)=couleurfond(G35)))

Fichier joint.

A+

 

[Aurelie ACPP]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

MERCI beaucoup !!!!!!

J'avance enfin... A bientôt peut-être !!!

Bonne fin de journée.

 

[job75]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Re,

J'ai simplifié la macro avec If champ.Count = 1 Then

A+

 

[Aurelie ACPP]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Re,

Une autre petite modif si possible...
Peut-on demander la même formule mais avec plusieurs couleur différentes ?

Merci.

 

[job75]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Re,

Peut-on demander la même formule mais avec plusieurs couleur différentes ?

Par exemple avec 2 couleurs, en G35 et I35, on écrira en K2 :

=SOMMEPROD(ESTNUM(G25:R34)*(G25:R34>=6,5)*((couleurfond(G25:R34)=couleurfond(G35))+(couleurfond(G25:R34)=couleurfond(I35))))

Noter le signe +.

A+