Colonne double

OK MERCI GIRUS J'avais bien écri comme tu le suggères sauf que je me mélangeais les pinceaux avec mes cellules
super merci
vous êtes tous formidables

merci merci

Bonjour,

A priori, tu devrais écrire :
=ColorCountIf(N3:N17;R9)+ColorCountIf(P13:P17;R9)

Pour info, la fonction personnelle ColorCountIf permet de compter le nombre de cellules qui ont la même couleur de remplissage qu'une cellule de référence.

Voici le code correspondant

Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer
Dim MaCoul As Integer
Dim Cel As Range
    Application.Volatile True
    ColorCountIf = 0
    MaCoul = BgColor.Interior.ColorIndex
    For Each Cel In SearchArea
        If Cel.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
    Next Cel
End Function

et un exemple
https://www.cjoint.com/c/FEpgBunQivC

A+

Heu ! C'est une vraie formule, ou plutôt une ligne de code VBA ?