Compter les cellules en gras...

| Les cellules sont mises en gras par une "Mise en forme conditionnelle" afin
| de les faire ressortir, visuellement, par rapport aux autres cellules dans la
| même plage.

Ben voilà !
Dis nous la condition qui sert à dans la MEFC, un petit coup vraisemblablement
de SOMMEPROD et tu auras répondu à ta question !

AV

Bonjour JB,

Excellent ! La procédure que tu as inscrite fonctionne à merveille.
Gros Merci.
--
Merci pour votre aide :-)
Butch

P.-S: Pour écrire à mon adresse personnelle S.V.P. enlever "nospam_" devant
celle-ci.

Bonjour,

http://cjoint.com/?exqjPuKrvW

Compte les cellules en gras:

Dans le tableur: =comptegras(A2:B7)

Dans un module:

Function CompteGras(champ As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Font.Bold Then temp = temp + 1
Next c
CompteGras = temp
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate 'maj
End Sub

Bonjour AV,

Merci pour ton intervention... la solution a été trouvée. S.V.P. voir ma
réponse au message de JB.
--
Merci pour votre aide :-)
Butch

P.-S: Pour écrire à mon adresse personnelle S.V.P. enlever "nospam_" devant
celle-ci.

| Les cellules sont mises en gras par une "Mise en forme conditionnelle" afin
| de les faire ressortir, visuellement, par rapport aux autres cellules dans la
| même plage.

Ben voilà !
Dis nous la condition qui sert à dans la MEFC, un petit coup vraisemblablement
de SOMMEPROD et tu auras répondu à ta question !

AV

| Merci pour ton intervention... la solution a été trouvée.

D'une façon générale mais surtout quand la mise en forme dépend d'une MEFC,
c'est vraiment une totale hérésie que de récourir à une fonction perso qui
nécessite, pour une mise à jour (très hypothétique) des résultats, une proc
évènementielle qui ne sera par forcément enclenchée après un changement de
format et donc risque d'affichage de résultats erronés !

C'est toi qui vois....surprises à venir à peu près garanties
AV

Sans compter la lenteur qui risque de devenir rapidement handicapante du fait du
recalcul systématique imposé dans Worksheet_SelectionChange...

----------
Ange Ounis
----------

| Merci pour ton intervention... la solution a été trouvée.

D'une façon générale mais surtout quand la mise en forme dépend d'une MEFC,
c'est vraiment une totale hérésie que de récourir à une fonction perso qui
nécessite, pour une mise à jour (très hypothétique) des résultats, une proc
évènementielle qui ne sera par forcément enclenchée après un changement de
format et donc risque d'affichage de résultats erronés !

C'est toi qui vois....surprises à venir à peu près garanties
AV

Re-bonjour,

Bon... j'ai bien lu vos remarques. Alors... compte tenu des explications que
j'ai données et afin d'éviter ce que toi et Ange Ounis avez mentionné, quelle
formule dois-je utiliser (puisqu'une "proc" ne semble pas OK...) afin
d'atteindre mon objectif ?

--
Merci pour votre aide :-)
Butch

P.-S: Pour écrire à mon adresse personnelle S.V.P. enlever "nospam_" devant
celle-ci.

| Merci pour ton intervention... la solution a été trouvée.

D'une façon générale mais surtout quand la mise en forme dépend d'une MEFC,
c'est vraiment une totale hérésie que de récourir à une fonction perso qui
nécessite, pour une mise à jour (très hypothétique) des résultats, une proc
évènementielle qui ne sera par forcément enclenchée après un changement de
format et donc risque d'affichage de résultats erronés !

C'est toi qui vois....surprises à venir à peu près garanties
AV

Dans le post d'origine, il n'était pas mentionné que la mise en forme
étatit le résultat d'une MFC.

-Si la MFC est >100, utiliser =Nbval(champ)
-Si la MFC est compris entre 100 et 200, utiliser
=SommeProd((champ>=100)*(champ<=200))

http://cjoint.com/?eygbt7Jiq2

JB

| Sans compter la lenteur qui risque de devenir rapidement handicapante du fait
du
| recalcul systématique imposé dans Worksheet_SelectionChange...

Je ne peux que souscrire...;-)

AV

|...quelle formule dois-je utiliser (puisqu'une "proc" ne semble pas OK...) afin
| d'atteindre mon objectif ?

Tu as dit précédemment :
"Les cellules sont mises en gras par une "Mise en forme conditionnelle"
Il suffit que tu donnes la formule ou la condition qui active la MEFC
Il suffira ensuite de dénombrer sous condition

AV

Si la formule de calcul est en A10:

[A10].Calculate n'est pas pénalisant.

JB