Compter les cellules en gras...

[butch]

Bonjour,

Existe-t-il une formule permettant de compter, dans une plage de cellules
(ex: A1:A50), combien de cellules contiennent des données (chiffres ou texte)
possédant l'attribut gras ?
--
Merci pour votre aide :-)
Butch

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

[Papy Bernard]

Slt,
De "butch"

> Bonjour,
>
> Existe-t-il une formule permettant de compter, dans une plage de cellules
> (ex: A1:A50), combien de cellules contiennent des données (chiffres ou
> texte)
> possédant l'attribut gras ?
> --
> Merci pour votre aide :-)

Et pourquoi certaines cellules sont en gras ????

--
A+
Papy Bernard (RTCien malgré lui)

[Pounet95]

Bonsoir,

Ceci devrait faire l'affaire ( à adpater, améliorer, etc )

Dans un module standard :

Function BoldCell(Range, Optional Gras)
Dim Cell As Object
For Each Cell In Range
If Cell.Font.Bold = True And Not IsEmpty(Cell) Then _
BoldCell = BoldCell + Cell
Next Cell
End Function

Dans la cellule où sera récupéré le nombre :
=BoldCell(A1:A20)

Pounet95
On trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"butch" <nospam...@hotmail.com> a écrit dans le message de news:
8FD602EE-5593-46A3...@microsoft.com...

[Thierryp]

Bonjour,

En voilà une réponse qui fait avancer le schmilblik !!! ça vaut vraiment
le coup d'avoir une connection Internet....

Par formule, je dirais non...En VBA, peut-être un truc du genre :

Sub test()
For Each c In Range("A1:A10")
If c.Font.Bold = True Then az = az + 1
Next
MsgBox az
End Sub

--
@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline)
------------------------

Papy Bernard a écrit :

[Papy Bernard]

Slt,
De "Thierryp"

> En voilà une réponse qui fait avancer le schmilblik !!! ça vaut vraiment
> le coup d'avoir une connection Internet....

Mon message n'est pas une réponse mais une question !!!!!!

[butch]

Bonjour "Pounet95",

Tout d'abord merci pour ton intervention.

Toutefois, lorsque j'essaie d'utiliser le code que tu as proposé, j'obtiens :
1) Dans la cellule où =BoldCell(A1:A20) est inscrit le fameux message
#Valeur.
2) À l'ouverture du débogueur VBA, un message m'indique : Erreur de
compilation. Next sans For.

Bon... je ne suis vraiment pas à l'aise en VBA. Je comprend bien le sens
des lignes de code que tu as proposées mais voilà... je ne sais pas comment
régler ce problème.
Merci à l'avance si tu peux m'éclairer davantage..!

--
Merci pour votre aide :-)
Butch

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

"Pounet95" a écrit :

[butch]

Bonjour Papy Bernard,

En réponse à ta question....

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.

Mon objectif, par ma question, est de faire inscrire, dans une cellule
située sous la plage en question, le nombre de cellules en gras.
Voilà..!

--
Merci pour votre aide :-)

Butch

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

"Papy Bernard" a écrit :

[Modeste]

Bonsour® butch avec ferveur ;o))) vous nous disiez :

> 2) À l'ouverture du débogueur VBA, un message m'indique : Erreur de
> compilation. Next sans For.

ceci n'est qu'un seule intruction sur une seule ligne :
If Cell.Font.Bold = True And Not IsEmpty(Cell) Then BoldCell = BoldCell
+ Cell

en recopiant IE à tendance à occulter le caractère de continuité "_"

> > Dans un module standard :
> >
> > Function BoldCell(Range, Optional Gras)
> > Dim Cell As Object
> > For Each Cell In Range
> > If Cell.Font.Bold = True And Not IsEmpty(Cell) Then _
> > BoldCell = BoldCell + Cell
> > Next Cell
> > End Function

--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

[Pounet95]

Bonjour à tous,
Effectivement et je ne sais pas à quel nombre de caractères il faut revenir
à la ligne !
Si encore il y avait un aperçu avant envoi ?

Sinon, avec la correction préconisée par Modeste, ça fonctionne ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Modeste" <nom...@nomail.net> a écrit dans le message de news:
uFOdr2tZ...@TK2MSFTNGP04.phx.gbl...

[JB]

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

[butch]

Bonjour (à vous deux...)

OK... plus de message d'erreur avec la solution de "Modeste".
Toutefois, le nombre retourné est incorrect. Après les tests dans les
cellules A1 à A30 dans lesquelles il n'y a que 3 cellules en gras, le
résultat affiché est : 78,66666667 !

Omission (involontaire...) de ma part dans le message original : Les
cellules impliquées possèdent une "Mise en forme conditionnelle" faisant
automatiquement affciher des chiffres en gras en les comparant à un chiffre
"source". Serait-ce là la cause de ce résultat erroné ?

Encore merci !

--
Merci pour votre aide :-)
Butch

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

"Modeste" a écrit :

[AV]

| 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

[butch]

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.

"JB" a écrit :

[butch]

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.

"AV" a écrit :

[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

[Ange Ounis]

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

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

AV a écrit :

[butch]

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.

"AV" a écrit :

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

[JB]

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

[AV]

| 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

[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

[JB]

Si la formule de calcul est en A10:

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

JB

[Ange Ounis]

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

JB a écrit :

[AV]

| 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

[Ange Ounis]

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

AV a écrit :

[isabelle]

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

AV a écrit :

[isabelle]

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

isabelle

AV a écrit :

[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

[isabelle]

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

isabelle

AV a écrit :

[butch]

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.

"AV" a écrit :

> |...quelle formule dois-je utiliser (puisqu'une "proc" ne semble pas OK...) afin

[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

[butch]

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.

"AV" a écrit :

> | Voici la condition de la "MEFC" :

[AV]

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

Laisse tomber les "chiffres en gras" ..
Demande toi pourquoi ils sont en gras et ce pourquoi servira de critère de
dénombrement
Si tu nous mettais un bout de fichier exemple ça éviterait les "prêches dans le
désert" ;-)

AV

[Papy Bernard]

Slt,

D'"AV"

> Laisse tomber les "chiffres en gras" ..
> Demande toi pourquoi ils sont en gras et ce pourquoi servira de critère de
> dénombrement

C'était le fond de ma question.

Mais voilà, les usines à gaz qui autorisent les **fioritures** conduisent,
"a posteriori", au prix de contorsions de programmation, à des questions de
ce genre.

Pourquoi faire simple quand on peut faire compliqué.

--
A+
Papy Bernard (RTCien malgré lui)

[AV]

| C'était le fond de ma question.

Elle (la question) était fondée.

| Mais voilà, les usines à gaz qui autorisent les **fioritures**

|.................

Cette rengaine n'a strictement aucun intérêt...

AV