Aditions par couleur Excel

Résolu
Light4012 -  
 Light4012 -
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.

5 réponses

Réponse 1 / 5
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

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

Cdlmnt
0
Light4012
 
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
Réponse 2 / 5
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Alors il faudra passer par une macro, est ce que ça te va ?
http://www.cjoint.com/c/GFnoPI7kVd8

Cdlmnt
0
Light4012
 
Qu'est ce qu'une macro ?
0
Réponse 3 / 5
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Une macro est un bout de programme qui ajoute une fonctionnalité à excel
Voir le ficher de mon précédent message
0
Light4012
 
Lorsque j'ouvre le fichier, ça me mets " #NOM? " en B2, B3, B4, B5, B6, B11 ainsi que B21.
0
Réponse 4 / 5
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
As tu accepté l'ouverture des macros lors du lancement du fichier?
0
Light4012
 
Oui
0

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

Posez votre question
Réponse 5 / 5
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
Light4012
 
Merci beaucoup de votre aide, cela fonctionne !
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses