Problème avec fonction Nbcellcouleur

Bonjour vous tous et toutes,

J'ouvre un deuxième post pour le même dossier (j'ai fais une demande pour cellules clignotante, non encore résolu) mais pour ce même dossier je me suis aperçu qu'il y avait un problème de mise à jour des calculs de cellules.

En effet, les cellules renseignées des colonnes BN, BO, BQ et BS ne se calculent pas automatiquement.

Elles sont renseignées par des fonctions qui vont chercher un code dans le module 1.

Cela provient-il de ce code qui bloque le calcul automatique ? et comment remédier à ce problème ?

Merci à vous de vos prochaines réponses.

Bien cordialement

Bonsoir a tous et toutes.

Pour le recalcule automatique :

Function nbcellcouleur(Plage As Range, Couleur As Integer) As Long
Application.Volatile

Bonne soirée.

Bonsoir Bruno9442,

Merci de ta réponse,

J'ai modifié le code comme ceci

Function nbcellcouleur(Plage As Range, Couleur As Integer) As Long

Application.Volatile

Dim c As Range

nbcellcouleur = 0

For Each c In Plage

If c.Interior.ColorIndex = Couleur Then

nbcellcouleur = nbcellcouleur + 1

End If

Next c

End Function

Mais cela ne fonctionne toujours pas.

C'est ce code qui ne va pas ?

Merci et à bientôt

bjr, essaie ce code pour compter les cellules couleur :

Function CompteCouleurFondRef(champ As Range, couleurFond As Range)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurFond.Interior.ColorIndex Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFondRef = temp
End Function

la formules:

=Comptecouleurfondref(C6:F6;G6)

g6 et la cellule couleur de référence.

bonne journée

Bonjour bruno9442,

Merci à nouveau de ta réponse.

Cela ne fonctionne toujours pas, toutes les autres cellules se recalculent automatiquement sauf celles employant une formule allant chercher un code, je pense que ce genre de code empêche le recalcule auto.

Pour pallier à cela j'ai créé un bouton "RECALCULER" dont j'ai affecté ce code :

Sub calculate()

Cells.calculate

End Sub

J'aurais préféré que cela se fasse automatiquement, mais à priori c'est impossible, alors ce bouton fera l'affaire.

J'ai tout de même pris ton dernier code, la référence à une cellule pour la couleur me paraît mieux adaptée à mon tableau, d'autant plus que ce n'est pas moi qui vais le gérer, mais une secrétaire, dans un autre bureau.

Merci à toi pour ton aide précieuse.

J'abuse tu vas me dire, mais tu n'aurais pas une idée pour mon problème de cellules qui doivent clignoter ?

Voir ma demande là => https://forum.excel-pratique.com/excel/cellules-clignotantes-t43128.html

Cordialement

re, désolé mais je suis pas aussi bon pour pouvoir gérer cela.

Bon courage dans ta recherche.

Ce n'est rien et merci à toi pour ton aide