Compter des celule de couleur

bonjour a tous

tout nouveaux sur le forum, je suis patrick

et jaimerais savoir ci vous me refuseiez un petit coup de main,

pour pouvoir compter les celules, au fond en couleur sur un planing annuel,

que j'ai pu recupere sur le net .

auquel je voudrai incorporer un comptage de jours de conges, rt,etc ...

et comme avant de vous demander de l'aide ,j'ai cherche a me debrouiller ,

j'ai donc deja ecrit une macro ( ces une premiere pour moi ) qui devrez normalement fonctionner .

mais l'erreur # valeur apparrez en celule (AB 26) et je ne vois pas ou est l'erreur.

mais comme un fichier joint vos 100 fois plus que mes explication .

je vous remerci d'avance ci possible d'y jeter une petit coup d'oeil .

afin qu'enfin je puisse comprendre mon erreur .

patrick

Bonjour,

J'ai corrigé ta formule SOMCOULEUR.

Maintenant, tu vas chercher les cellules colorées sous les MFCs.

Cdlt.

Bonjour,

voilà

édit; grillé sur la ligne Hello Jean Eric

P.

Function CountByColor(InputRange As Range, ColorRange As Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempCount = 0
For Each cl In InputRange.Cells
  If cl.Interior.ColorIndex = ColorIndex Then TempCount = TempCount + 1
Next cl
Set cl = Nothing
CountByColor = TempCount
End Function

Re,

Bonjour Patrick,

Si tu as un peu de temps, recherche les cellules colorées sous les MFCs.

Notre ami Patrick est un petit coquin, alors j'en ai ajouté d'autres.

Cdlt.

RE bonjour

et vraiment merci pour votre aide ainsi que votre rapidite

je vois bien la corection faite dans la macro , (que veut tel dire cette corection histoire de bien comprendre )

et quand je colorie a nouveau des celules

rien ne ce passe ??? Y A t'il une manip particuliere pour

que cela soit pris en compte des que je valide

merci .

OUPSS !!!!

voila le fichier

il n'y a pas autant de celule de couleur

que ce quil y a d'ecrit

dsl j'avais oublier de vous envoye le fichier

cordialement

patrick

Bonjour toutes et tous

merci à Jean-eric et Patrick1957

@Pat04

tu peux utiliser l'icône représentant le 'balai' (Reproduire la mise en forme)

1/ en premier, clic sur la cellule ou la couleur est présente

2/ en deux, clic sur l'icône 'balai' (Reproduire la mise en forme)

3/ et en trois, clic sur la cellule de destination recevant la mise en forme

4) le résultat a changé

ci joint en image :

crdlt,

André

Re,

J'ai perdu un peu le fil.

Le changement de couleur d'une cellule ne recalcule pas la fonction personnalisée.

Cdlt.

Bonjour

C ´est ok pour moi merci à vous ,

Plus particulièrement à André,

Jean ERIC , et patrick .

Mon petit problème n’en est plus

La rapidité et l’efficacité m’ont était

D’un grand confort. Encore merci à vous je

Reviendrai plus souvent c’est sûr

Cdlt

Patrick

re bonjour,

oui andre tu a raison ,comme je debute a peine !!

je n'avais pas bien compris, en tout cas merci ça fonctionne tres bien.

cdlt

patrick