Macro couleur Excel [Résolu]

Il faut que le fichier ayant la fonction personnalisée soit ouvert quand tu l'utilises.
Le mieux est de l'inclure dans ton fichier que ton correspondant l'aie si tu envoies ton fichier.

Clic-droit sur un nom d'onglet de ton classeur, choisir 'visualiser le code',
Dans vba :
- à gauche clic-droit sur ton projet, 'insérer / module'
- double-clic sur le module
- dans la fenetre d'édition à droite coller le code :

Function SommeCouleur(plage, couleur)
    Dim coul As Integer, c As Range
    coul = couleur.Interior.ColorIndex
    For Each c In plage
        If c.Interior.ColorIndex = coul Then
            SommeCouleur = SommeCouleur + c.Value
        End If
    Next c
End Function

eric

Salut,

Oui c'est possible, faudrait voir comment tu colorises tes cellules, manuellement, avec un Mise en forme conditionnelle et dans ce cas quelle est la formule qui conditionne cette emise en forme ou par VBA.

Le plus simple serait de mettre sur un post ton fichier sans données confidentielles que l'on voit.

Pour joindre ton fichier, avec ce lien

http://www.cjoint.com/

Bonjour,

Comme mike n'a pas l'air de revenir du marché voici une proposition par fonction personnalisée :
SommeCouleur.xls
Tu fais 'insertion / fonction..', catégorie 'personnalisée et tu choisis SommeCouleur,
dans 'plage' tu sélectionnes la plage à sommer,
dans 'couleur' tu sélectionne une cellule qui a la couleur de fond qui t'interesse.

Cette fonction est à coller dans un module de ton classeur

eric

Salut Eriiic,

Merci d’avoir pris le relais, je vais tout de même jeter un œil sur ce fichier.

Comment sais tu que j'étais au marché, (comme tous les samedis), tu es devin, trop fort cet Eriiic,

Bon week-end

Salut Lysandre,

Outre la proposition d'Eriiic,
je remarque que tu attribues une couleur par zone, tu peux utiliser une fonction d'Excel SOMMEPROD, exemple la formule ci-dessous pour la zone A qui correspond à une zone bleu

=SOMMEPROD($C$7:$C$50*($A$7:$A$50="Zone A"))

Récupères ton fichier avec les explications

http://cjoint.com/?mfoOMUQHjM

Merci eriiic pour ta participation

La formule que tu as utilisé me plais seulement dès que j'utilise SommeCouleur comme indiqué sur ton exemple le code erreur #NOM? apparait dans la cellule et Excel corrige automatiquement le S majuscule de Somme en minuscule.

Merci Mike pour ton aide, je souhaiterais ne pas utiliser les zones(ici pour exemple) pour le tri mais la couleur des cellules

Encore merci à vous deux

Lysandre

Génial Eric

Exactement ce qu'il me fallait

Un grande remerciement de ma part.

Tu as gagné le trophée du problème de Lysandre.

Amicalement

Lysandre

Euh!

Un dernier détail sans vouloir abuser.

Le système de calcul fonctionne très bien seulement quand je change une couleur dans une cellule le calcul ne s'effectue pas automatiquement.

Peut-on régler ce problème ?

Merci

Oui, un petit oubli, désolé.
Ajoute Application.Volatile au début du code.
La fonction sera réévaluée au prochain recalcul (n'importe quelle saisie dans la feuille ou par F9)
eric

Re,

Regardes tout en VBA avec un code simple qui pilote le comptage en G9, 13,15 et 19

http://cjoint.com/?mfrpiVmW5J

Comment faire une application volatile ?

Mike, j'ai copié tes données mais sans résultats

Lysandre

Ajoute Application.Volatile au début du code.
donc :

Function SommeCouleur(plage, couleur)
    Dim coul As Integer, c As Range
    Application.Volatile
    coul = couleur.Interior.ColorIndex
    For Each c In plage
        If c.Interior.ColorIndex = coul Then
            SommeCouleur = SommeCouleur + c.Value
        End If
    Next c
End Function

Désolé Mike je ne suis pas expert en macro, à chacun ses spécialités.
Je vais tenter d'appliquer vos méthodes demain et une fois de plus merci à vous.
bien sûr je vous tiens informés.

amicalement

lysandre

Bonjour tout le monde,

Lysandre, tu devrais regarder de plus près la proposition du post 5 de mike.
Si tu dois saisir la zone en colonne A, tu peux obtenir la couleur par une mise en forme conditionnelle (si tu en as toujours besoin), et le total par un sommeprod().
Et plus besoin de vba, y compris la fonction personnalisée.
J'avoue que je n'avais pas regardé de près ton tableau et que vba n'est pas absolument nécessaire.

eric

Bonjour Eric,

Il ne faut pas tenir compte des zones.
En fait le fichier concerné en un relevé de commande client.
j'ai pris l'exemple d'article pour que ce soit plus clair.

Nous avons un tableau sur lequel nous suivons la prospection commerciale via des couleurs dans les cellules.
Ex:
- Jaune => client contacté
- Rouge => refus
- vert => commande
a cela s'ajoute par client l'achat de marchandise, la vente, la marge, le coef ...

Sur mon exemple il y a 4 zones mais dans mon fichier chaque produit est différent c'est pourquoi nous voulons nous servir de la couleur de cellule comme base de tri.

La proposition que tu m'as présenté me convient très bien, seulement le calcul n'est pas immédiat après le changement de cellule.

J'ai copié ton deuxième prog et collé dans un deuxième module cela ne change rien et quand je fais F9 le message d'erreur "Nom ambigu détecté : SommeCouleur" apparait.
Je pense ne tu n'est pas loin de la solution

Lysandre

C'est parce que function sommecouleur(...) est présent 2 fois.
Supprime l'ancienne version (peut-être dans un autre classeur ouvert)

Toute mes excuses, je croyais que c'était un nouveau prog a saisir, comme quoi je ne suis pas bon!
Le calcul n'est pas immédiat mais cela marche en appuyant sur F9 et ça me va.
Je vous remercie à tout deux pour vos conseil et votre patience.

Je vous souhaite un excellent dimanche et continuer comme ça, c'est super.

@+

Lysandre

Ok, n'oublie pas de mettre en résolu alors...