Somme couleurs

[mcj1997]

Bonjour,

Je chercher à totalise un nombre de cases avec deux conditions : noms et couleurs.

Fichier en PJ,

Merci d'avance,

 

[CISCO]

Re : Somme couleurs

Bonsjour

Deux possibiltés en pièce jointe, en colonnes K et L, avec la fonction LIRE.CELLULE(38...) d'XL4 nommée ici LIRECOULEUR.

@ plus

 

[BOISGONTIER]

Re : Somme couleurs

Bonjour,

Fonction sommeCouleurFond

JB

 

[mcj1997]

Re : Somme couleurs

Merci à tous les deux, mais à l'origine dans ma demande avec le fichier joint, je demande à totaliser les cases d'après leur nom et leur couleur ; ex : si 3 lundis avec case verte = 3 ; il y a aucune valeur dans les cases colorées à additionner.

Merci d'avance,

 

[phlaurent55]

Re : Somme couleurs

Bonjour à tous,

voir fichier joint .......................si j'ai bien compris la question
il est nécessaire d'activer les macros

à+
Philippe

 

[BOISGONTIER]

Re : Somme couleurs

Voir PJ

Sans colonne intermédiaire et MAJ automatique si modif couleur.

=SOMMEPROD((jour="lundi")*(couleurfond(couleur)=4)*couleur)

Fonction matricielle

Function couleurFond(champ As Range)
  Application.Volatile
  Dim temp()
  ReDim temp(1 To champ.Count)
  For i = 1 To champ.Count
   temp(i) = champ(i).Interior.ColorIndex
  Next i
  couleurFond = Application.Transpose(temp)
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/MatFonctionMat.xls

JB

 

[mcj1997]

Re : Somme couleurs

Merci mais ce n'est pas ce que je veux en effet il n'y a pas de valeur à additionner dans mes cases il faut uniquement compter les jours et les couleurs.

 

[phlaurent55]

Re : Somme couleurs

Re,

Merci mais ce n'est pas ce que je veux en effet il n'y a pas de valeur à additionner dans mes cases il faut uniquement compter les jours et les couleurs.

c'est ce que fait mon fichier envoyé à 20h25

il donne le nombre de lundi en vert
de mardi en vert
de mercredi en vert
de jeudi en vert
de vendredi en vert

idem pour les jours en rouge

idem pour le jours en orange

à+
Philippe

 

[BOISGONTIER]

Re : Somme couleurs

Voir PJ

Sans colonne intermédiaire et MAJ automatique si modif couleur.

=SOMMEPROD((jour="lundi")*(couleurfond(nombre)=4))

JB

 

[mcj1997]

Re : Somme couleurs

Merci à tous, à bientôt.

 

[CISCO]

Re : Somme couleurs

Bonsoir à tous

Juste pour le fun, mon fichier corrigé en fonction de la dernière remarque de mcj1997.

@ plus

 

[mcj1997]

Re : Somme couleurs

Merci CISCO

 

[mcj1997]

Re : Somme couleurs

Voir PJ

Sans colonne intermédiaire et MAJ automatique si modif couleur.

=SOMMEPROD((jour="lundi")*(couleurfond(nombre)=4))

JB

Bonjour,

Votre fichier fonctionne comme je le veux mais lorsque je l'utilise sur un classeur m'appartenant (en pièce jointe) il ne fonctionne pas.

Merci d'avance,

 

[phlaurent55]

Re : Somme couleurs

Re,

c'est à cause de la plage nommée "nombre" qui prend en compte les cellules de la colonne A au lieu des cellules la colonne F

faire Ctrl+F3 et modifier la plage nommée comme ceci:
=Feuil1!$F$1:$F$35

à+
Philippe