Comptage cellule en gars

[be.wilf]

Bonjour,

Sur le fichier joint, je souhaiterai que dans la cellule N2 soit comptabilisé uniquement les cellules en gras de la colonne N.
Je n'y parviens pas au moyen de fonctions, et ne connais pas le VBA.
Quelqu'un pourrait-il m'aider SVP ?

Merci d'avance.

 

[BOISGONTIER]

Re : Comptage cellule en gars

Bonjour,

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

JB

 

[DoubleZero]

Re : Comptage cellule en gars

Bonjour, be.wilf, BOISGONTIER , le Forum,

Une autre suggestion avec cette macro placée dans un module standard :

Option Explicit
Sub Valeurs_en_gras_totaliser()
    Dim i As Long
    Dim compteur As Double
    Application.ScreenUpdating = False
    compteur = 0
    For i = Cells(Rows.Count, "n").End(xlUp).Row To 3 Step -1
        If Range("n" & i).Font.Bold = True Then compteur = compteur + Range("n" & i)
    Next i
    [n2] = compteur
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[be.wilf]

Re : Comptage cellule en gars

Merci BOISGONTIER,

Je me suis mal exprimé.
Ce dont j'ai besoin c'est la somme des cellules en gras et non le nombre de cellule.

Peux-tu faire la correction ?
Merci,

 

[BOISGONTIER]

Re : Comptage cellule en gars

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_Somme_gras.xls

Function SommeGras(champ As Range)
    Application.Volatile
    Dim i, t
    t = 0
    For Each i In champ
      If i.Font.Bold = True Then
        If IsNumeric(i) Then t = t + Val(i.Value)
      End If
    Next i
    SommeGras = t
End Function

JB

 

[be.wilf]

Re : Comptage cellule en gars

Super.

Merci beaucoup à vous.
Bonne journée.