Aditions par couleur Excel [Résolu]

Light4012 - 12 juin 2017 à 15:26 - Dernière réponse :  Light4012
- 14 juin 2017 à 09:17
Bonjour,

Sur Excel, dans une colonne de données (des chiffres), je souhaiterais pouvoir faire l'adition des chiffres colorés en vert uniquement. Sachant que des données noires pourraient devenir vertes dans le futur.

Savez vous si c'est possible ?

Merci d'avance.
Afficher la suite 

10 réponses

Répondre au sujet
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 12 juin 2017 à 15:45
0
Utile
1
Bonjour

La couleur est elle mise "à la main" ou bien est obtenue avec une Mise en forme conditionnelle ?

Cdlmnt
Les couleurs sont mises à la main. Par contre, il s'agit de la couleur de police. La couleur de cellule me servant déjà pour autre chose.
Commenter la réponse de ccm81
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - Modifié par ccm81 le 13/06/2017 à 16:41
0
Utile
1
Alors il faudra passer par une macro, est ce que ça te va ?
http://www.cjoint.com/c/GFnoPI7kVd8

Cdlmnt
Commenter la réponse de ccm81
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 13 juin 2017 à 16:43
0
Utile
1
Une macro est un bout de programme qui ajoute une fonctionnalité à excel
Voir le ficher de mon précédent message
Lorsque j'ouvre le fichier, ça me mets " #NOM? " en B2, B3, B4, B5, B6, B11 ainsi que B21.
Commenter la réponse de ccm81
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - Modifié par ccm81 le 13/06/2017 à 18:02
0
Utile
1
As tu accepté l'ouverture des macros lors du lancement du fichier?
Commenter la réponse de ccm81
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - Modifié par ccm81 le 13/06/2017 à 18:42
0
Utile
1
Une fois le fichier ouvert
Alt-F11 pour accéder à l'éditeur vba (de macros)
Dans la fenêtre de gauche tu dois avoir la liste des feuilles et un Module 1 dans la liste des modules
S oui, tu l'ouvres et tu dois y voir le code suivant
Public Function SomCoul(celref As Range, plage As Range) As Double
Dim sc As Double, coulref As Byte, cel As Range
Application.Volatile
sc = 0
coulref = celref.Font.ColorIndex
For Each cel In plage
  If cel.Font.ColorIndex = coulref Then sc = sc + cel.Value
Next cel
SomCoul = sc
End Function

Sinon
Dans la barre de menu, Insertion/Module
et tu colles le code dans ce Module 1
Retour à la feuille
Fichier/Enregistrer sous et tu choisis le type .xlsm (m comme macro)

Tu fermes le fichier
Pour autoriser l'exécution des macros voir ici

Cdlmnt
Merci beaucoup de votre aide, cela fonctionne !
Commenter la réponse de ccm81