PB Fonction personnalisée appelant code VBA

Bonjour,

Je rencontre un problème lors de l’exécution d'un fonction personnalisée sous Excel 2013. Cette fonction appelle un code VBA que Voici (Pris sur le Web et personnalisé pour mon utilisation) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function NombreEbGras(plage_T As Range) As Double Dim cel As Range Dim Tot As Double Application.Volatile For Each cel In plage_T If IsNumeric(cel) And (cel.Font.Bold) Then Tot = Tot + cel End If Next cel NombreEbGras = Tot End Function

---

Le code lui même fonctionne car lorsque je met un point d’arrêt sur "End Function" et que je regarde la valeur de la variable "Tot" la valeur est juste. Par contre cela me renvoie 0.00 dans la cellule et ce quel que soit le format choisi.
l'appel de ma fonction est : =Module1.NombreEbGras(E1:E284)

Merci de votre aide

Bruno DURAND

Bonjour,

Chez moi ta fonction fonctionne très bien
Attention tout de même le fait de mettre ou d'enlever le gras dans une cellule ne déclenche pas le recalcul des fonctions.

Salut.

Ce ne serait pas un problème de format dans la cellule qui utilise la fonction? Vérifie pour que ce format soit Standard.