Comptabiliser les nombres des cellules selon la couleur

Bonjour,

Je rencontre un souci.

J'utilise depuis quelques années cette fonction pour suivre un planning personnel.

Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant

Dim Cel As Range
Dim Som As Double

If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
Exit Function
End If
For Each Cel In PlageSomme
If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
Next
SOMME_SI_COULEUR = Som
End Function

Le souci est que je suis obligé de recopier la formule pour que la fonction fonctionne.

Formule qui est (exemple pour une cellule) :

=SOMME_SI_COULEUR(B70:AF70; AH70)

Si je ne fais pas cette action le résultat reste à 0.

Je recopie donc toutes les formules et j'enregistre mon fichier, le ferme et à l'ouverture idem ça remet à 0.

La version excel avec laquelle je travaille sur ce poste et Office 365 MSO 16.0 - 32 bits.

Merci.

Bonjour,

A tenter : ajouter un Application.Volatile (infos ici) après la déclaration des variables. Ensuite, vérifier dans les options Excel que le calcul automatique est activé.

Sinon, le pack de fonction proposé en téléchargement ici intègre une fonction SOMME_SI_COULEUR.

Merci pour cette réponse.

Ta réponse m'a fait rappeler que j'avais installé le pack de fonction et je pense que cela devait entré en conflit.

J'ai changé le nom de la fonction et cela fonctionne.

Merci.