somme couleur actualisée

[28gaëlle]

Bonjour,

Je souhaiterais sommer mes cellules suivant un fond de couleur. Pour l'instant ça marche pas trop mal avec la formule ci-dessous. Mais j'aimerais maintenant que lorsque je change la couleur d'une cellule ma somme se mette automatiquement à jour.
Est ce possible?

Merci d'avance si vous trouver une solution.



Option Explicit
Function Sum_color(plage As Range, couleur As Integer) As Double
Dim r As Range, nb As Double
Application.Volatile
nb = 0
For Each r In plage
If r.Interior.ColorIndex = couleur Then nb = nb + r.Value
Next
Sum_color = nb
End Function



Function cellcouleur(c As Range)
cellcouleur = c.Interior.ColorIndex
End Function

 

[BOISGONTIER]

Re : somme couleur actualisée

Bonjour,

Utiliser le pinceau

ou

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

JB

 

[PascalXLD]

Re : somme couleur actualisée

Bonjour

Tu peux rajouter ce code dans le code de ta feuille

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

Edit : la même réponse dans la même minute

 

[28gaëlle]

Re : somme couleur actualisée

Ca ne marche pas trop

 

[28gaëlle]

Re : somme couleur actualisée

mais avec le pinceau çà marche. Merci beaucoup.
Est ce qu'il vous serait possible de m'expliquer pourquoi?

 

[PascalXLD]

Re : somme couleur actualisée

Re

J'ai fais des tests et ça marche !

Peux-tu joindre ton fichier sans données juste pour voir

 

[28gaëlle]

Re : somme couleur actualisée

merci d'avance vola le fichier

 

[28gaëlle]

Re : somme couleur actualisée

Je crois que je sais il faux appuyer sur F9 Non?

 

[Dull]

Re : somme couleur actualisée

Salut 28gaëlle, Boisgontier, Pascal, le Forum

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

dans le Module de la Feuil1, et non dans un module séparé... ça devrait marcher mieux 😉

Bonne Journée

 

[PascalXLD]

Re : somme couleur actualisée

Re

voici ton fichier modifié et en effet le code j'avais précisé qu'il fallait le mettre dans le code de la feuille et il fallait ajouter aussi le nom de la feuille à recalculer

 

[28gaëlle]

Re : somme couleur actualisée

Merci je ne sais pas trop pourquoi mais j'ai ait comme vous me l'avez indiqué et çà marche. Encore merci

 

[jm-sta]

Re : somme couleur actualisée

bonjour,
comment on fait pour savoir quelle valeur pour quelle couleur?

merci

 

[PascalXLD]

Re : somme couleur actualisée

Re

Tu a sla liste dans l'aide excel

sinon moi je préfère ainsi

Option Explicit
Function Sum_color(plage As Range, MaCellCouleur As Range) As Double
Dim r As Range, nb As Double
Dim couleur as integer
Application.Volatile
couleur=MaCellCouleur .interior.colorindex
nb = 0
For Each r In plage
If r.Interior.ColorIndex = couleur Then nb = nb + r.Value
Next
Sum_color = nb
End Function

Je t'ai mis en violet ce que j'ai changé
En fait au lieu de mettre le numéro de la couleur dans la fonction je sélectionne une cellule contenant la couleur à choisir

 

[jm-sta]

Re : somme couleur actualisée

Re,

pouvez vous me donner un exemple de votre code sur une feuille excel

merci d'avance

 

[PascalXLD]

Re : somme couleur actualisée

Re

un petit exemple basique