Fonction VBA ne s'actualise pas

Bonjour à tous,

j'avais voulu utiliser cette fonction , (bon je n'arrive pas à poster de lien ici, il s'agit de l'article compter le nombre de cellules avec une couleur de cellule spécifique à l'aide de vba)

elle marche mais si par exemple je repasse une de mes cellules dans une autre couleur elle ne s'actualise pas d'elle même...

j'avais pensé à rajouter dans la fonction

Application.Volatile

mais cela ne marche pas mieux...

ce que cela donnait :

Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
Application.Volatile
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
    CountCcolor = CountCcolor + 1
    End If
Next datax
End Function

que pourrais-je faire? merci à tous

Bonjour nommius,

Très bien le rajout de la fonction Application.Volatile

Mais pour actualiser, il faut ajouter en plus dans la feuille en question cette macro

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

Cordialement.

Bonjour,

En effet, le changement de format couleur d'une cellule ne déclenche pas d'événements sur la feuille, donc pas de Change donc pas de calculate automatique, donc l'astuce est de détecter un changement de cellule.

Merci mdo100 !

@ bientôt

LouReeD

Bonjour,

alors j'ai essayé de mettre ce code mais cela ne marche pas plus... (je suis pas sûre d'avoir bien compris où il fallait le mettre du coup j'ai essayé dans ThisWorkbook, dans mon module ou dans mes feuilles....)

merci

ben mince alors..

j'ai vérifié j'ai pareil que vous et ça ne fonctionne pas

Re nommius,

Voir une autre façon de faire de @boss_68 ► ICI

Cdlt.