Probleme recalcul fonction comptage couleur

[aegis]

Bonjour je cherche à créer une fonction qui comptabilise toutes les cellules dela même couleur situées immédiatement en dessous de la cellule ou se trouve la fonction. Prrobleme : le recalcul ne se fait pas automatiquement en cas de changement . Pouvez vous m'aider ?

Merci d'avance

le code:

Public Function SommeCouleur(Optional xx As Range)
Dim i As Integer
couleur1 = ActiveCell.Interior.Color
i = 0
Do While couleur2 <> couleur1
i = i + 1
couleur2 = ActiveCell.Offset(i, 0).Interior.Color
Loop
SommeCouleur = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(i - 1, 0)))

End Function

 

[Banzai64]

Re : Probleme recalcul fonction comptage couleur

bonsoir

Essayes

Public Function SommeCouleur(Optional xx As Range)
[COLOR="Red"]Application.Volatile[/COLOR]
Dim i As Integer
.
.

 

[aegis]

Re : Probleme recalcul fonction comptage couleur

Merci !
je ne connaisais pas la fonction !
ca marche