Fonction VBA si condition

Version imprimable

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:

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,

Citation:

Envoyé par lissory

Bonjour,

Essayez :

Code:

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

21/07/2020, 09h30
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,

Citation:

Envoyé par lissory

Autant pour moi !

Code:

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

21/07/2020, 13h40
lissory

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