Aide pour complément de code VBA Excel

Bonjour à tous,

Dans un module, j'ai mis en place ce code qui me permet de faire la somme des cellules de même couleur.
Cela fonctionne plutôt bien, sauf que lorsque je change de couleur, je suis obligé de retaper la formule dans ma cellule.
Je souhaiterai que si je change de couleur dans la cellule où doit se trouver le résultat, le calcul se fasse automatiquement.

Voir le fichier joint
Comment puis-je procéder ?

Merci par avance

Code module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant 'Effectue la somme des cellules couleur   Dim Cel As Range Dim Som As Double   If PlageCouleur.Cells.Count > 1 Then SOMME_SI_COULEUR = CVErr(xlValue) Exit Function End If   For Each Cel In PlageSomme If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel Next   SOMME_SI_COULEUR = Som   End Function

---

Salut,

N'ai-est-ce pas Application.volatile qui gère ce genre d'évènement ?
A mettre en tout début de Macro en principe (je ne l'ai jamais vraiment essayer, mais je sais ou du moins crois que c'est bel et bien cette fonction qui fait ce genre de boulot).

Bonjour,

J'avais bien penser à cette solution, mais je ne sais pas où mettre cette procédure. J'ai essayé de la mettre dans mon module, mais cela ne fonctionne pas.

Citation:

---

Envoyé par Nouveau2

Salut,

N'ai-est-ce pas Application.volatile qui gère ce genre d'évènement ?
A mettre en tout début de Macro en principe (je ne l'ai jamais vraiment essayer, mais je sais ou du moins crois que c'est bel et bien cette fonction qui fait ce genre de boulot).

---

Je ne pense pas que Application.volatile va changer quelque chose.
Le fait de changer la couleur d'une cellule ne provoque pas le calcul de celle-ci. C'est la raison pour laquelle le calcul de la cellule ne se refait pas.

La seule solution doit être une action manuelle pour lancer le calcul changement de couleur.

J'avoue que j'ai pas fais spécialement attention à ce qui été modifié (La couleur des cellules plutôt que leur valeur (.Value)). Alors effectivement, j'ai été un peu trop vite en besogne en donnant une solution générale qui ne marche très certainement pas si c'est autre chose que la valeur des cellules qui changent.

Utiliser une macro

Code:

---

Worksheet_SelectionChange(ByVal Target As Range)

---

qui s'active lorsqu'on change de sélection plutôt qu'une fonction (mise en mémoire des couleurs, test conditionnel pour voir si couleurs actuelles ont changé avec couleurs mémorisées) ?

Bonjour,

Essayez la démarche suivante
1) changez le code de la fonction avec ce code comportant un ajout signalé par des ///

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant 'Effectue la somme des cellules couleur Dim Cel As Range Dim Som As Double   Application.Volatile '/// ajout   If PlageCouleur.Cells.Count > 1 Then SOMME_SI_COULEUR = CVErr(xlValue) Exit Function End If For Each Cel In PlageSomme If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel Next SOMME_SI_COULEUR = Som End Function

---

2) copiez le code suivant dans la fenêtre de code de la feuille concernée (Feuil1 selon votre pièce jointe)

Code:

---

1 2 3

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

---

La mise à jour s'opérera lorsqu'une nouvelle cellule sera sélectionnée.

Petite parenthèse...

Dans ceci

Code:

---

1 2	If PlageCouleur.Cells.Count > 1 Then SOMME_SI_COULEUR = CVErr(xlValue)

---

Ne serait-ce pas plutôt xlErrValue ?

Bonjour à tous,

Je vous remercie beaucoup pour vos participations. La solution de PMO2017 fonctionne très bien.

Encore merci pour votre aide

Amicalement

René

Citation:

---

Envoyé par parmi

Petite parenthèse...

Dans ceci


Ne serait-ce pas plutôt xlErrValue ?

---

Bonjour,

Non, dans l'exemple que j'ai trouvé c'est bien cette formule.
Merci
René