Discussion :

[NEC14]

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 :

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
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

[Invité]

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).

[NEC14]

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.

[NicolasST]

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.

[Invité]

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.

[VinceVBA]

Utiliser une macro

Code :

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

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) ?

[PMO2017]

Bonjour,

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

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 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 :

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

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.

[parmi]

Petite parenthèse...

Dans ceci

Code :

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

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

Ne serait-ce pas plutôt xlErrValue ?

[NEC14]

Bonjour à tous,

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

Encore merci pour votre aide

Amicalement

René

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é