Passer au contenu principal

Comment additionner / compter les nombres en gras dans une plage de cellules dans Excel?

Lorsque vous avez une plage de données qui contient des nombres en gras dans une feuille de calcul et que vous souhaitez maintenant additionner ou compter uniquement les cellules en gras, vous pouvez bien sûr les additionner une par une manuellement, mais cela prendra du temps. Comment pouvez-vous additionner ou compter uniquement les cellules en gras dans Excel de manière simple et rapide?

Compter les nombres en gras dans une plage avec la fonction définie par l'utilisateur (VBA et formule)
Somme des nombres en gras dans une plage avec la fonction définie par l'utilisateur (VBA et formule)
Plusieurs clics pour compter et additionner les cellules en gras dans une plage avec Kutools for Excel


Compter les nombres en gras dans une plage avec la fonction définie par l'utilisateur

Fonction définie par l'utilisateur peut vous aider à obtenir rapidement le nombre de cellules en gras. Veuillez faire comme ceci:

1. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: comptez les nombres en gras dans une plage de cellules

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Ensuite, enregistrez ce code et tapez cette formule = CountBold (A1: C9) dans une cellule vide, voir capture d'écran:

doc-count-bold-cells1

4. Puis appuyez Entrer et vous compterez les cellules en gras dans la plage A1: C9.

doc-count-bold-cells2

Remarque:A1: C9 dans la formule indique la plage dans laquelle vous souhaitez utiliser la fonction pour compter les cellules en gras, vous pouvez la modifier selon vos besoins.


Additionner les nombres en gras dans une plage avec la fonction définie par l'utilisateur

Et si vous souhaitez additionner uniquement les nombres en gras dans une plage de données, je peux également créer une fonction définie par l'utilisateur pour que vous puissiez la résoudre.

1. Maintenez la touche ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: additionnez les nombres en gras dans une plage de cellules

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Ensuite, enregistrez ce code et tapez cette formule = sumbold (A1: C9) dans une cellule vide, voir capture d'écran:

doc-count-bold-cells3

4. Et puis appuyez sur Entrer clé, tous les nombres en gras de la plage A1: C9 ont été additionnés. Voir la capture d'écran:

doc-count-bold-cells4

Remarque:A1: C9 dans la formule indique la plage dans laquelle vous souhaitez utiliser la fonction pour additionner les cellules en gras, vous pouvez la modifier selon vos besoins.


Plusieurs clics pour compter et additionner les cellules en gras dans une plage avec Kutools for Excel

YVous pouvez facilement compter ou additionner toutes les cellules en gras dans une plage en plusieurs clics sans gérer le code VBA compliqué et sans mémoriser les formules.

Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Pour compter les cellules en gras, sélectionnez une cellule vide pour localiser le résultat, puis cliquez sur Kutools > Fonctions Kutools > Statistiques et mathématiques > COUNTBYFONTBOLD.

Et pour additionner les cellules en gras, cliquez sur Kutools > Fonctions Kutools > Statistiques et mathématiques > SUMBYFONTBOLD. Voir la capture d'écran:

2. Dans le FArguments onction boîte de dialogue, spécifiez la plage avec les cellules en gras que vous devez compter ou additionner dans la zone Référence, puis cliquez sur le bouton OK .

Désormais, le comptage ou la somme de toutes les cellules en gras de la plage spécifiée sont remplis immédiatement dans la cellule sélectionnée. Voir la capture d'écran:

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Gardez la référence de cellule de formule constante avec Kutools for Excel


Articles connexes:

Comment identifier et sélectionner toutes les cellules ou le texte en gras dans Excel?

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello Anthony,
I was struggling with the same problem. For me, the solution ended up being very simple. I noticed I had 4 Modules listed. I removed all of them and then started over with the above instructions. Now it works perfectly.
This comment was minimized by the moderator on the site
I use the function and keep getting the #NAME? error. I am using Excel 365 and Windows11.
This comment was minimized by the moderator on the site
Hello, Anthony

Have you copied and pasted the code into the Module of Microsoft Visual Basic for Applications window in your worksheet? Afetr pasting the code, then, you should enter the formula as you need.

Or you can upload your file here, we can check where the problem is.

Thank you!
This comment was minimized by the moderator on the site
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
This comment was minimized by the moderator on the site
Hello Carlo,

Gald to help. After you bold new cells, the sum won't update automatically. But when you double-click the formula cell, then press Enter, the sum will update. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hi Mandy,
thanks for your reply,
Yes I know that after double click the sum will uograde.
Is there any way to upgrade automatically the sum ?

Regards
Carlo
This comment was minimized by the moderator on the site
Hello Carlo,

Sorry that I don't have the solution for automatically upgrading the sum. The easiest way I can think of is to press Ctrl + Alt + F9 to recalculate all worksheets in all open workbooks. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
This comment was minimized by the moderator on the site
RE: CountBold formula This formula does not appear to be dynamic. While it works at first pass, if i change the bolded cells the counters do not update unless i re-enter the formula again. Any tips?
This comment was minimized by the moderator on the site
Yea this is the same for me, otherwise it works great. But if this could be solved so it refreshes the count after each cell deselect like other basic counts it would be perfect!
This comment was minimized by the moderator on the site
Dear guys,
The formula won't update if you just change the format of the number cells.
It updates only when you change the cell content.
This comment was minimized by the moderator on the site
I'm using excel for mac 2011. How can I run the code on my system? thanks!
This comment was minimized by the moderator on the site
I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!
This comment was minimized by the moderator on the site
[quote]I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!By Maey[/quote] You have to follow the instruction. It says: "Click Insert > Module, and paste the following code in the Module Window", and you have to do exactly so. Make sure you paste the code in the Module Window, not in the Sheet code Window.
This comment was minimized by the moderator on the site
Thank you.. it's working...
This comment was minimized by the moderator on the site
This works a treat. I only have one issue...it doesn't seem to be adding anything after a decimal point. Any help would be greatly appreciated.
This comment was minimized by the moderator on the site
This works perfectly except it doesn't seem to add my decimal places, only adds the whole dollar. If you have a fix for this I would be very grateful.
This comment was minimized by the moderator on the site
Hi Katie, Use the below code, as the sum shows decimal places. Function SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 For Each rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations