Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Compter les cellules en gras...

Compter les cellules en gras...

33 réponses
Avatar
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.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
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)

Avatar
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" a écrit dans le message de news:

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.


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



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





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

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

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



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" a écrit dans le message de news:

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.






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



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)






Avatar
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


Avatar
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" a écrit dans le message de news:

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






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



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







1 2 3 4