Bonjour,

J'aimerais ajouter une condition d'execution a une fonction personnalisée de countif par couleur.
Pourriez-vous m'aider ?

L'idée c'est d'executer la fonction que pour les clients ayant une valeur 2 dans la colonne G.

Voici la code de la fonction mise en palce, actuellement il fonctionne parfaitement mais ne tient pas compte du critere numerique en colonne G.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Function Color_Cell_Count(ColorCell As Range, DataRange As Range)
 
Dim Data_Range As Range
Dim Cell_Color As Long
 
Cell_Color = ColorCell.Interior.ColorIndex
 
For Each Data_Range In DataRange
 
    If Data_Range.Interior.ColorIndex = Cell_Color Then
        Color_Cell_Count = Color_Cell_Count + 1
    End If
 
Next Data_Range
 
End Function

D'avance merci pour votre retour,