Macro couleur Excel Résolu/Fermé

Question

Bonjour à tous,

Je souhaiterais savoir s'il est possible était possible de créer des macros sous Excel en faisant références à des couleurs de cellules.

Je m'explique, dans une colonne j'ai plusieurs valeurs en euro correspondantes à plusieurs produits.
selon les caractéristique des produits la couleur de cellule est différente.
Je voudrais faire la somme des valeurs selon la couleur de cellule.

J'espère avoir été clair

Merci pour vos réponses ;-)

@+

lysandre

Mike-31 · Answer

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

https://www.cjoint.com/

eriiic · Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

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

https://www.cjoint.com/?mfoOMUQHjM

Lysandre · Answer

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

eriiic · Answer

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

Lysandre · Answer

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

Lysandre · Answer

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

eriiic · Answer

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

Mike-31 · Answer

Re,

Regardes tout en VBA avec un code simple qui pilote le comptage en G9, 13,15 et 19

https://www.cjoint.com/?mfrpiVmW5J

Lysandre · Answer

Comment faire une application volatile ?

Mike, j'ai copié tes données mais sans résultats

Lysandre

eriiic · Answer

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

Lysandre · Answer

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

eriiic · Answer

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

Lysandre · Answer

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

eriiic · Answer

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

Lysandre · Answer

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

eriiic · Answer

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

Macro couleur Excel

18 réponses

Discussions similaires