Compter les cellules en gras...

Certes, sur une plage d'une seule cellule, la différence est imperceptible, mais
très rapidement, en augmentant le nombre de cellules traitées, elle le devient !
C'est un des problèmes des fonctions VBA persos du fait que le VBA n'est pas un
vrai langage de programmation compilé.
Pour de vraies performances comparables aux fonctions natives d'Excel, il faut
passer par des .xll et de la programmation en C (comme le Morefunc.xll de
Laurent Longre). Mais ce n'est plus, bien sûr, aussi accessible..

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

Si la formule de calcul est en A10:

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

JB

| Certes, sur une plage d'une seule cellule,

Encore que "[A10].Calculate" ne limite absolument pas le recalcul à la cellule
A10 mais à l'ensemble des formules/cellules de la feuille...

AV

Ce n'est pas ce que dit l'aide, mais sur ce point je suis assez dubitatif et
j'aurais plutôt tendance à être d'accord avec toi.

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

| Certes, sur une plage d'une seule cellule,

Encore que "[A10].Calculate" ne limite absolument pas le recalcul à la cellule
A10 mais à l'ensemble des formules/cellules de la feuille...

AV

hello vous tous,

après test je constate que ce n'est plus le cas sur la version 2002, et j'en suis la première surprise.
il faut quant même que "Calculate" soit à la position xlManual, pour qu'un recalcul se fasse uniquement sur une plage déterminer.

mais il faudrait faire des tests plus appronfondi, par exemple que se passera t'il suite à l'exécution des macros événementielle.

isabelle

| Certes, sur une plage d'une seule cellule,

Encore que "[A10].Calculate" ne limite absolument pas le recalcul à la cellule
A10 mais à l'ensemble des formules/cellules de la feuille...

AV

.. dans tout les cas, le recalcule complet du classeur se fait à l'événement "Enregistrer"

isabelle

| Certes, sur une plage d'une seule cellule,

Encore que "[A10].Calculate" ne limite absolument pas le recalcul à la cellule
A10 mais à l'ensemble des formules/cellules de la feuille...

AV

| .. dans tout les cas, le recalcule complet du classeur se fait à l'événement
"Enregistrer"

Heu... Oui...si "recalcul avant enregistrement" est coché dans les options de
Calcul

AV

c'est bien ça AV, j'avions oublier qu'excel active automatiquement cette case à cocher.

isabelle

| .. dans tout les cas, le recalcule complet du classeur se fait à l'événement
"Enregistrer"

Heu... Oui...si "recalcul avant enregistrement" est coché dans les options de
Calcul

AV

Bonjour AV,

Voici la condition de la "MEFC" :
La valeur de la cellule est .... égale à .... (ici, il y a l'adresse de la
cellule à comparer).

Ex: Si la donnée dans B3 est égale à ce qu'il y a dans B75, alors la donnée
dans B3 doit être mise en GRAS.

Voilà... j'espère que j'ai bien expliqué la situation !
--
Merci pour votre aide :-)
Butch

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

|...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

| Voici la condition de la "MEFC" :
| La valeur de la cellule est .... égale à .... (ici, il y a l'adresse de la
| cellule à comparer).

=NB.SI(Plage_à_examiner;Valeur_à_trouver)

AV

Bonjour AV,

=NB.SI(Plage_à_examiner;Valeur_à_trouver)

OK... mais comment trouver, dans la "Plage_à_examiner" les cellules
contenant des chiffres en gras soit... "Valeur_à_trouver" ?

Actuellement, je ne vois vraiment pas commet NB.SI peut faire ce travail !

Merci encore.

--
Merci pour votre aide :-)
Butch

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

| Voici la condition de la "MEFC" :
| La valeur de la cellule est .... égale à .... (ici, il y a l'adresse de la
| cellule à comparer).

=NB.SI(Plage_à_examiner;Valeur_à_trouver)

AV