Formule avec condition si caractère gras

[Little_Broca]

Bonjour,

Voila, j'ai un assez grand tableau d'environ 200 lignes pour 40 colonnes. Je voudrais, pour chaque ligne, faire la somme UNIQUEMENT des nombres qui sont en gras.

J'ai mis un exemple en pièce jointe.

Si vous pouviez me filer un petit coup de pouce pour ca, ca m'aiderait vachement!

Merci d'avance.
Tarik.

 

[BOISGONTIER]

Re : Formule avec condition si caractère gras

Bonjour,

Donne la somme des nombres en gras d'un champ

=sommeGras(B2:B9)

Dans un module (Alt+F11) puis Insertion/Module

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calculate
End Sub

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

JB

 

[Little_Broca]

Re : Formule avec condition si caractère gras

Merci beaucoup.
Ca marche nickel.

J'abuse encore un peu, mais existe-il la même fonction pour la moyenne?

Merci!