Pb calcul cellules couler + gras

[neferet59]

Bonjour,🙂
je cherche une formule pour calculer les cellules qui ont un fond de couleur ET écrit en gras : 😕
j'utilise cette fonction pour la couler de police :
Public Function cumul_couleur(plage As Range, col As Range)
Dim elm As Object
Application.Volatile
cumul_couleur = 0
For Each elm In plage
If elm.Font.ColorIndex = col.Font.ColorIndex Then
cumul_couleur = cumul_couleur + elm.Value
End If
Next elm
End Function

je pense qu'il me manque une info à donner pour qu'il reconnaissance le gras.

Cette info me sera nécessaire pour d'autre formules.
Je vous remercie à l'avance pour vos réponses
Neferet

 

[pierrejean]

Re : Pb calcul cellules couler + gras

bonjour neferet

a tester

Public Function cumul_couleur(plage As Range, col As Range)
Dim elm As Object
Application.Volatile
cumul_couleur = 0
For Each elm In plage
If elm.Font.ColorIndex = col.Font.ColorIndex [COLOR=blue]and elm.Font.Bold=true[/COLOR] Then
cumul_couleur = cumul_couleur + elm.Value
End If
Next elm
End Function

 

[neferet59]

Re : Pb calcul cellules couler + gras

Merci beaucoup PierreJean,
je viens de tester, c'est impec 😀

Sur cette lancée, une autre question, comment compter des chiffres de couleur gras ET souligné ? 😉

A l'avance merci,
Neferet

 

[pierrejean]

Re : Pb calcul cellules couler + gras

A tester

......
If elm.Font.ColorIndex = col.Font.ColorIndex [COLOR=blue]and elm.Font.Bold=true[/COLOR] [COLOR=seagreen]and elm.Font.Underline = xlUnderlineStyleSingle[/COLOR] Then
......

 

[neferet59]

Re : Pb calcul cellules couler + gras

Encore une fois, merci beaucoup pour cette réponse, apparemment ça fonctionne je vais creuser tout cela.

Encore merci,
Bonne soirée
Neferet