OVH Cloud OVH Cloud

nb de cellules rouges par fonction personnalisée

11 réponses
Avatar
Boursicot
Bonjour,

Je voudrais denombrer le nombre de cellules ecrites en rouge (ou autre) dans
un champ à l'aide d'une fonction personnalisée.

pour celà je fais

Function SommeCouleur(couleur, champ)
Application.Volatile True
Dim cellule As Range
a = 0

For Each cellule In champ
If (cellule.Font.ColorIndex = couleur) Then
a = a + 1
End If

b = cellule.Font.ColorIndex
Next cellule

SommeCouleur = a
End Function

Tout va bien sauf qu'il faut que je reactualise par un F9 meme avec le
volatile. comment puis je faire pour que le calcul soit instantané.

Merci de vos réponses.

A+

1 réponse

1 2
Avatar
Patrick BASTARD
Bonjour, *Alain*

PS : Dans l'exemple joint (que je n'avais pas encore regardé) la
fonction perso que tu utilises (que je persiste à fortement
déconseiller) devrait être avantageusement remplacée par un SOMMEPROD


Je ne fais partie de la SPA que depuis peu -bien que n'ayant pas encore
acquitté ma cotisation- et je découvre, grace entre autre à ton classeur,
les multiples applications de Sommeprod.
Dans le cas du fichier joint, l'objectif était de remplir le calendrier avec
des noms, et d'effectuer les calculs sur des catégories.

qui, lui, est complétement indifférent au barbouillage


J'ai cru comprendre que tu n'étais pas un adepte forcené de la
multiplication des formats, donc ce lien :

http://www.xldynamic.com/source/xld.CFPlus.Download.html
ne te sera certainement pas utile !!!

Pas taper...


--
Bien amicordialement,
P. Bastard

1 2