Discussion :

[lissory]

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,

[Invité]

Bonjour,

Essayez :

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
19
20
21
 
 
Function Color_Cell_Count(ColorCell As Range, DataRange As Range)
 
Dim Data_Range As Range
Dim Cell_Color As Long
Dim ColonneDataRange As Long
 
    Cell_Color = ColorCell.Interior.ColorIndex
 
    For Each Data_Range In DataRange
        With Data_Range
             ColonneDataRange = .Column
             If .Interior.ColorIndex = Cell_Color And .Offset(0, 7 - ColonneDataRange) Then
                Color_Cell_Count = Color_Cell_Count + 1
             End If
        End With
 
    Next Data_Range
 
End Function

[lissory]

Bonjour Eric,

Merci de votre retour,
Je comprend le concept et votre ajout est d un aide précieuse.

Encore une bête question de la part d un débutant en VBA, est il possible de lui imposer la valeur d exécution dans la colonne?
Si j ai une valeur de 2 dans la colonne G tu exécutes le compte et si tu trouves 7 tu ne considère pas cette ligne et vérifie la suivante?

Bonne journée,

[Invité]

Autant pour moi !

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
19
20
21
 
 
Function Color_Cell_Count(ColorCell As Range, DataRange As Range)
 
Dim Data_Range As Range
Dim Cell_Color As Long
Dim ColonneDataRange As Long
 
    Cell_Color = ColorCell.Interior.ColorIndex
 
    For Each Data_Range In DataRange
        With Data_Range
             ColonneDataRange = .Column
             If .Interior.ColorIndex = Cell_Color And .Offset(0, 7 - ColonneDataRange)=2 Then
                Color_Cell_Count = Color_Cell_Count + 1
             End If
        End With
 
    Next Data_Range
 
End Function

[lissory]

Un tout grand merci pour ton aide.
Ca fonctionne à la perfection pour mon besoin.