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

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

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

    Cdlmnt
    0
    1. 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
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Alors il faudra passer par une macro, est ce que ça te va ?
    http://www.cjoint.com/c/GFnoPI7kVd8

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

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

    Posez votre question
  6. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1. Light4012
       
      Merci beaucoup de votre aide, cela fonctionne !
      0

Discussions similaires

Changer la couleur d'une cellule selon son texte
fantomex -
Picton -

5 réponses