Fonction somme.si par rapport à la couleur de cellule

edou -  
Mike-31 Messages postés 18398 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je souhaite gérer un tableau de congés.
Dans ce tableau, je coche la cellule en jaune pour une absence.
J'aimerai pouvoir faire le total des cellules en jaune avec l'aide d'une formule...

Pouvez vous m'aider ?

Merci

Ed
A voir également:

2 réponses

Heliotte Messages postés 1561 Statut Membre 92
 
Bonjour edou,

En macro VBA, ça donne :
Option Explicit

Sub SommeSiPasJaune()
    Dim Col As Integer, LigPre As Integer, LigDer As Integer, i As Integer
    Dim TotalSansJaune As Double
    '
    Col = 1
    LigPre = 1
    LigDer = Columns(Col).Find("*", , , , xlByColumns, xlPrevious).Row
    TotalSansJaune = 0
    For i = LigPre To LigDer
        Cells(i, Col).Select
        If (Selection.Interior.ColorIndex <> 36) Then
            TotalSansJaune = TotalSansJaune + Cells(i, Col).Value
        End If
    Next i
    Cells(1, 3).Value = TotalSansJaune
End Sub

Si la cellule n'est pas de couleur 36 (jaune)
0
Mike-31 Messages postés 18398 Date d'inscription   Statut Contributeur Dernière intervention   5 140
 
Salut,

par formule difficile si tu colorises tes cellules manuellement, pour cela il faudrait utiliser la mise en forme conditionnelle.
Exemple dans ton tableau tu attribus dans ta mise en forme une couleur à une lettre exemple A pour absent ensuite il suffit de compter les a avec une simple formule
=NB.SI(B1:B10;"A")
si tu as besoin d'un petit montage fait signe
0