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

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 6 Août 2013

• #2

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

Bonjour,

Fonction perso matricielle

JB

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 6 Août 2013

• #3

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

 

Vote positif 0 Vote négatif

H

hbenalia

XLDnaute Occasionnel

• 6 Août 2013

• #4

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 :

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

A

Aurelie ACPP

XLDnaute Nouveau

• 6 Août 2013

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Août 2013

• #6

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 :

Code:

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+

 

Vote positif 0 Vote négatif

H

hbenalia

XLDnaute Occasionnel

• 6 Août 2013

• #7

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

Bonjour,

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

@+

 

Vote positif 0 Vote négatif

A

Aurelie ACPP

XLDnaute Nouveau

• 6 Août 2013

• #8

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

Bonjour,

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

Merci.

 

Pièces jointes

• Modele.xls

  91 KB · Affichages: 40
• Modele.xls

  91 KB · Affichages: 42
• Modele.xls

  91 KB · Affichages: 45

Vote positif 0 Vote négatif

A

Aurelie ACPP

XLDnaute Nouveau

• 6 Août 2013

• #9

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.

 

Vote positif 0 Vote négatif

N

Ninter

XLDnaute Occasionnel

• 6 Août 2013

• #10

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

Aurelie ACPP à dit:

Code,

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

i.

Cliquez pour agrandir...

Ninter

 

Pièces jointes

• Modele_V1.xls

  70 KB · Affichages: 43

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Août 2013

• #11

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

Re,

1) La fonction modifiée :

Code:

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 :

Code:

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

Fichier joint.

A+

 

Pièces jointes

• Modele(1).xls

  70 KB · Affichages: 57
• Modele(1).xls

  70 KB · Affichages: 51
• Modele(1).xls

  70 KB · Affichages: 57

Dernière édition: 6 Août 2013

Vote positif 0 Vote négatif

A

Aurelie ACPP

XLDnaute Nouveau

• 6 Août 2013

• #12

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Août 2013

• #13

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

Re,

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

A+

 

Vote positif 0 Vote négatif

A

Aurelie ACPP

XLDnaute Nouveau

• 6 Août 2013

• #14

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Août 2013

• #15

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

Re,

Aurelie ACPP à dit:

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

Cliquez pour agrandir...

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

Code:

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

Noter le signe +.

A+

 

Vote positif 0 Vote négatif