Lancer une fonction lors du changement de couleur d'une cellule

**Contrec** · 03/06/2011, 19h03

Bonjour,

J'ai un petit soucis sur un classeur Excel : Je n'arrive pas à exécuter automatiquement une fonction lorsque je change la couleur d'une cellule.

Je m'explique... Je souhaite calculer dans une cellule la somme des valeurs des cellules d'une certaine couleur. J'arrive à faire ceci grâce à une petite fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function SommeCouleur(monRange As Range, couleurFond)
    '
    ' SommeCouleur Macro
    ' Fait la somme des cellules d'une même couleur dans un range donné
    '
    Dim cellule
    Dim somme
    Application.Volatile
    For Each cellule In monRange
        If cellule.Interior.ColorIndex = couleurFond Then
            somme = somme + cellule.Value
        End If
    Next
    SommeCouleur = somme
    Application.Calculate
End Function

Mais mon soucis c'est que j'aimerai que cette fonction se lance automatiquement lorsque je rajoute une cellule de couleur pour prendre en compte le nouveau calcul. Là je suis obligé de moi-même aller dans la cellule qui contient le résultat de la somme et d'appuyer sur Entrée pour raffraîchir le résultat.
Est-il possible de le raffraîchir dès que je change la couleur d'une cellule ?

Merci d'avance pour vos solutions

**alsimbad** · 04/06/2011, 07h46

je dirai qu'a priori, tu ne peux pas, tu aurais pu utiliser une macro evenmentielle (selection quand change qui appelle la function, mais dans ce cas là, il faut appeler avec les arguments et le fonctionement n'est pas le même que ta function, mais le changement de couleur d'une cellule n'a pas l'air de déclencher un tel evenement.
par contre tu peux au moins, sans retourner dans ta cellule appuyer sur F9 (calcul de la feuille), ce qui semble suffir a mettre ta formule a jour

**Contrec** · 04/06/2011, 09h52

Merci pour l'astuce du F9, en effet ça fonctionne bien. Du coup je me demande : N'y a t-il pas moyen de capter l'évènement changement de couleur pour exécuter ce F9 automatiquement ?

**mercatog** · 04/06/2011, 10h35

Bonjour

Tes couleurs sont manuels ou issus d'un mise en forme conditionnelle?

Pour la réponse 1, une usine à gaz que je n'apprécie pas. J'ai vu en diagonal un sujet similaire précédemment.

Pour la réponse 2, c'est faisable en interceptant le changement des valeurs des cellules.

**Contrec** · 04/06/2011, 10h46

Je fais le changement manuellement sur mes cellules... si c'est une usine à gaz qui fonctionne pourquoi pas...

**mercatog** · 04/06/2011, 12h29

Avant de colorier une cellule, tu la sélectionne. non?

**Contrec** · 04/06/2011, 12h42

En général j'en sélectionne plusieurs, dont celles qui concernent le calcul de la somme et je change manuellement la couleur.
Pour information, c'est un excel de suivi d'un crédit immobilier, chaque mois je passe le montant payé en vert et j’aimerai que cette action passe le calcul de la somme automatiquement.
J'en déduis donc qu'il y a un évènement de sélection des cellules...

**mercatog** · 04/06/2011, 12h52

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Pour intercepter la sélection d'une plage de cellules (Target) de la feuille.

Mon avis personnel, recherche une autre conception que celle d'essayer d'intercepter le changement de couleur d'une cellule.

PS

Tu sélectionne une plage X, le re calcul de la feuille est lancé (qui peut prendre beaucoup de temps et de ressources si tu as beaucoup de formules)
Tu change la couleur, rien n'est recalculé
Tu sélectionne une plage Y, le re calcul de la feuille est lancé....

C'est du n'importe quoi le code contre exemple ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("A1:L24")) Is Nothing Then Application.Calculate
End Sub

**Contrec** · 04/06/2011, 13h12

S'il n'y a pas de moyen pour capter l'évènement de changement de couleur, en effet je vais plutôt voir du côté des sélections de cellules. L'avantage que j'ai c'est qu'il n'y aura que 2 fonctions dans tout mon classeur excel, ça ne fera pas trop lourd...

Merci beaucoup pour la solution !

**alsimbad** · 04/06/2011, 18h56

Envoyé par contrec

c'est un excel de suivi d'un crédit immobilier, chaque mois je passe le montant payé en vert et j’aimerai que cette action passe le calcul de la somme automatiquement.

et pourquoi ne pas affecter ton calcul a la date. perso, c'est ce que je fais, le 10 du mois la cellule passe en vert et le calcul du solde est permanent, il n'est pas lié au changement de couleur. aucune macro, et des formules relativement simples