Discussion :

[bndurand]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[halaster08]

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.

[Pierre Fauconnier]

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.