XL 2013 Somme Si Couleur

[RW02]

Bonjour,

Souhaitant effectuer la somme de cellules en fonction de leur couleur, j'ai trouvé la fonction Somme_Si_Couleur ci-dessous.

Par contre, quand je change la couleur d'une cellule, le calcul ne se refait pas automatiquement. Existe-t-il une solution àce problème ?

Merci d'avance pour vos contributions,
Salutations,
Régis

Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim Som As Double

If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
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

 

[kingfadhel]

Bonjour le forum,
Chez ça fonctionne. ( Excel 2016).


Edit:
Désolé, j'ai pas fait attention au problème.

 

[Dugenou]

Bonjour,
Peut être ajouter : Application.Volatile
en début de fonction
Cordialement

 

[kingfadhel]

RE,
Une solution peur être en passant par la touche Ctrl+Q après changement de couleur de cellule.

 

[zebanx]

Bonjour RW02, Dugenou, Kingfadhel

Ne pas hésiter de se rapprocher de l'encyclopédie quand on bloque.
En l'espèce

http://boisgontierjacques.free.fr/ et taper somme + couleurs dans les recherches pour arriver à la bonne page.
Le rajout d'un code dans le WKS concerné permet d'actualiser les informations.

Merci JB !

 

[RW02]

Merci à tous pour votre aide...
J'ai testé la combinaison CTRL+ALT+F9, ça ne fonctionne pas !!!

En fait j'ai des CommandButton qui me permettent de colorer mes cellules. Quand je les utilise, la cellule n'est plus sélectionnée et du coup CTRL+ALT+F9 est inopérant. Par contre ça marche si je réactive préalablement une cellule !!! (voir mon fichier)

Donc, comment activer automatiquement ma cellule après utilisation de mon CommandButton ???

Suis novice en VBA !!!

Merci

 

[Jacky67]

Bonjour,
Dans la vraie vie, quel est le but réel de cette manipulation.
En générale, quand une cellule prend une couleur, il y a une condition.
Il est plus simple de travailler sur cette condition que sur sa couleur.
Il faut savoir que changer une cellule de couleur ou de format ne provoque PAS de re-calcul

 

[riton00]

Bonsoir,

Peut-être comme ça... appuis sur le bouton de commande f9 pour valider la cellule

Slts

 

[RW02]

Merci à tous pour vos retours qui m'ont permis de solutionner mon problème
Le bouton F9 de Riton00 fonctionne parfaitement.

 

[gti2b]

bonjour pour ma part pas vraiment le même problème j aimerai compter le nombre de cellule colorer cela fonctionne, cependant l actualisation ne se fait pas en faisant F9 cela fonctionne que si je revalide le calcul en D3 merci de votre aide (excel 2016)

 

[Lone-wolf]

Bonjour jti

Si tu change de couleur, la cellule se met à jour automatiquement.

 

[gti2b]

Bonjour, pour ma part cela ne fonctionne pas je suis sur Microsoft Office Professional Plus 2016 en anglais est ce que cela ne jouerais pas sur les lignes de commandes d actualisation ?

 

[Lone-wolf]

Bonjour gti2b, le Forum 🙂

Non, il n'y a pas d'incidence vu qu'en plus le code est en anglais.

 

[gti2b]

d accord je vous remercie de vos reponses si rapide
j ai trouver un petit moyen pour que cela fonctionne , je fait des cellules colorer aux couleurs de ma colonne ,je choisi la couleur desirer pour le calcul
je fait un ctrl c et ctrl v dans mon carre de couleur de calcul et cela fonctionne 😉

 

[Lone-wolf]

Bonjour gti2b 🙂

Tu peux aussi faire un copier-coller d'une cellule vide. 😉