recherche selon critere

P

Pascal76

Guest

• 5 Février 2004

• #2

Salut totof

voici une fonction qui fait cela :

Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer

Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell

End Function

dans ce cas il faut définir la zone où tu comptes et indiquer une cellule où tu trouves la couleur de référence.

Bon courage

Pascal

 

Vote positif 0 Vote négatif

T

totof

Guest

• 5 Février 2004

• #3

salut pascal merci je vais essayer demain

 

Vote positif 0 Vote négatif

C

CHRIS,

Guest

• 5 Février 2004

• #4

Pascal
c est totof
salut
j'ai essaye mais je ne comprend pas ce que ma coul signifie de plus je ne sais pas definir les zons ou se trouvent les couleurs et ou doit s additionner les valeurs

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 5 Février 2004

• #5

Re

Plutôt qu'un long discours regardes l'exemple joint avec les explications.

Pascal

 

Pièces jointes

• CouleurTotof.zip

  6.7 KB · Affichages: 45

Vote positif 0 Vote négatif

C

CHRIS,

Guest

• 5 Février 2004

• #6

merci PASCAL TU ME SAUVES LA VIE
MERCI ENCORE
A BIENTOT
JE TE TIENS AU COURANT
T ES UN CHEF

 

Vote positif 0 Vote négatif

T

totof

Guest

• 6 Février 2004

• #7

salut pascal
ta formule va a merveille
merci beaucoup pour ta fonction

 

Vote positif 0 Vote négatif