Calcul automatique en fonction d'une macro

[bobjazz]

Bonjour le Forum,

J'ai une macro :
Function Couleurs(plage As Range, IndexCouleur As Integer) As Long
Dim cel As Range
For Each cel In plage.Cells
If cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next cel
End Function

Qui me calcule le nombre cellule jaune, cela fonction si je ferme mon fichier et que je l'ouvre.
Mais je voudrais que cela se fasse automatiquement.
Dans ma cellule qui compte, j'ai cette fonction :
=couleurs(P967;6)

Je ne vois pas le code que je pourrais mettre,
Merci d'avance

Bobjazz

 

[Gorfael]

Re : Calcul automatique en fonction d'une macro

Salut bobjazz et le forum
Plus de 500 postes et toujours pas compris l'utilisation des balises

Function Couleurs(plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
Application.Volatile
For Each Cel In plage.Cells
      If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function

Ta formule se re-calculera en même temps que ta feuille
Malheureusement, un changement de format ne relance pas le calcul de la feuille.
A+

 

[bobjazz]

Re : Calcul automatique en fonction d'une macro

Bonjour Gorfael

Cela fonctionne avec le code que je colle dans la feuille concernée.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Encore merci

Bobjazz