Excel, somme cellules uniques texte en couleur

Résolu
jps.forum Messages postés 49 Date d'inscription   Statut Membre Dernière intervention   -  
 Akjmr24 -
Bonjour,
Pour la gestion d'une association, j'enregistre dans une colonne les dépenses (chiffres en noir dans la cellule). Quand je reçois le relevé de banque je passe les débits en bleu ou en rouge.

Question comment faire pour avoir uniquement la somme des cellules avec les montants en rouge, idem pour celles en bleu, idem pour celle en noir.
Merci pour vos réponses

Jean Paul
A voir également:

19 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour

Il n'existe pas de fonction permettant de cumuler en fonction des couleurs de la police mais c'est possible avec une fonction personnalisée à mettre dans un module
Public Function cumul_couleur(plage As Range, col As Range)
Dim elm As Object
Application.Volatile
cumul_couleur = 0
For Each elm In plage
    If elm.Font.ColorIndex = col.Font.ColorIndex Then
        cumul_couleur = cumul_couleur + elm.Value
    End If
Next elm
End Function

Pour insérer cette fonction voir l'aide

Pour appeler cette fonction : cumul_couleur(plage à cumuler, cellule avec la couleur à cumuler)
7
lasconi88
 
salut gbinforme
Lorsque je fais un copie colle de ta fonction j'ai un message suivant
il est impossible de traiter votre question. soit microsoft excel ne trouve pas de fonction equivalente soit l'aide n'est pas installé..pourquoi..la fonction n'est pas bonne ou dois je activer quelque chose dans excel.
Merci pour ta réponse
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour lasconi88,

Tu n'as certainement pas tout lu correctement :
- la fonction est à mettre dans un module.
- si tu veux utiliser une macro il faut bien sûr qu'elles soient activées.
- une fonction ne pose jamais de question.

Tu as une procédure pour insérer correctement ta macro : l'as-tu regardée ?
0