somme de valeurs si est en bleu

[damien.L]

Bonjour,

Alors je m'explique je suis entrain de faire un tableau pour partager les charges avec ma copine.

Donc ce que chacun doit à l'autre.

Et je cherche une formule dans excel qui pourrais me faire la somme de toutes les valeurs dont la police est bleu clair dans une colonne donné?

Merci d'avance

 

[Softmama]

Re : somme de valeurs si est en bleu

Bonjour Damien.L

Voici une fonction personnalisée :

Function SomBleu(Col As String)
Application.Volatile
    Dim c As Range
    For Each c In Intersect(Columns(Col), ActiveSheet.UsedRange)
        If c.Font.ColorIndex = 41 Then SomBleu = SomBleu + c
    Next
End Function

vois le fichier joint

 

[fhoest]

Re : somme de valeurs si est en bleu

Bonjour a vous deux
@ Softmama
voilà je regarde ta fonction perso et je ne comprend pas la façon dont elle est lancé
en fait je voulais en faire une pour des majuscules mais lorsque je rentre le meme code cad

Function Maj (Col As String)
Application.Volatile
    Dim c As Range
    For Each c In Intersect(Columns(Col), ActiveSheet.UsedRange)
        If c<> " " Then c=ucase(left(c))& right(c,len(c)-1)
    Next
End Function

mais elle n'est pas appeler?
comment se gère le déclenchement
Merci.

 

[damien.L]

Re : somme de valeurs si est en bleu

merci softmama de ton aide, et pour la remettre dans mon fichier à moi j'ai rien a modifier au niveau de ton code? Je suis un vrai débutant la dessus.

 

[Softmama]

Re : somme de valeurs si est en bleu

Re,

@damien, non rien à changer, juste garder la typologie =SomBleu("C") si tu veux la somme de la colonne C par exemple
@Fhoest, c'est une fonctionqui peut être appelée d'une cellule ou d'une autre macro. Depuis une cellule, tu peux Taper =SomBleu("H") comme tu taperais =Somme(H:H). Par contre ta fonction, 1ère lettre en majuscule serait plus simple comme ceci :

Function Maj (Col As String)
Application.Volatile
    Dim c As Range
    For Each c In Intersect(Columns(Col), ActiveSheet.UsedRange)
        If c<> "" Then c=Application.proper(c)
    Next
End Function

 

[fhoest]

Re : somme de valeurs si est en bleu

Ok
merci pour les explications et le code
A+