Aditions par couleur Excel

Résolu/Fermé
Light4012 - 12 juin 2017 à 15:26
 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.
A voir également:

5 réponses

ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
12 juin 2017 à 15:45
Bonjour

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

Cdlmnt
0
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.
0
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
Modifié le 13 juin 2017 à 16:41
Alors il faudra passer par une macro, est ce que ça te va ?
http://www.cjoint.com/c/GFnoPI7kVd8

Cdlmnt
0
Qu'est ce qu'une macro ?
0
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
13 juin 2017 à 16:43
Une macro est un bout de programme qui ajoute une fonctionnalité à excel
Voir le ficher de mon précédent message
0
Lorsque j'ouvre le fichier, ça me mets " #NOM? " en B2, B3, B4, B5, B6, B11 ainsi que B21.
0
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
Modifié le 13 juin 2017 à 18:02
As tu accepté l'ouverture des macros lors du lancement du fichier?
0
Oui
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
Modifié le 13 juin 2017 à 18:42
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
0
Merci beaucoup de votre aide, cela fonctionne !
0