SOMME SI COULEUR Résolu/Fermé

Question

Bonjour, 

Je coince avec un classeur, un planning 2018.


J'utilise cette fonction :

Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant'*********************************************************' Effectuer la somme des cellules en couleur *'*********************************************************Dim Cel As RangeDim Som As DoubleIf PlageCouleur.Cells.Count > 1 ThenSOMME_SI_COULEUR = CVErr(xlErrValue)Exit FunctionEnd IfFor Each Cel In PlageSommeIf Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + CelNextSOMME_SI_COULEUR = SomEnd Function

depuis trois années j'utilise cette fonction et pas de souci, mais là je n'arrive pas à trouver pourquoi ça ne fonctionne pas. 
J'ai enregistré mon fichier en .xlsm mais idem !

Si idée merci pour le retour.

Amesam · Accepted Answer

Bonjour mod100, 

Oui les couleurs sont bien identiques. Par contre, je me rend compte qu'ici je devrais avoir 0 et non #NOM?

=SOMME_SI_COULEUR(B14:AF14; AH14)

AH14 étant ma référence en bleu (H+)

Mike-31 · Answer

Bonjour,
la fonction personnalisée fonctionne très bien que lui reproches tu !

Amesam · Answer

Bonjour, 

je ne lui reproche rien :o) et en effet d'habitude ça fonctionne très bien !
Je cherche juste à comprendre pourquoi ça ne fonctionne pas alors que ça marche depuis plusieurs années sur d'autres fichier.

Mike-31 · Answer

Re,

si la couleur utilisée dans ton tableau est la même utilisée dans ta cellule critère il n'y a aucun problème
par contre si tu colorises tes cellules il faut que tu cliques sur la touche F9 pour mettre à jour le calcul.
Application.Volatile en début de code actualisera la somme uniquement lors de la saisie de valeurs mais pas après la colorisation
je te propose d'ajouter ce code dans les propriétés de ta feuille
clic droit sur l'onglet de la feuille concernée/Visualiser le code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Mais comme le signale à juste titre mdo si la colorisation est issue d'une mise en forme conditionnelle la fonction ne s'appliquera pas.
Suis son conseil joint un exemple de fichier anonymisé
A+
Mike-31

Je suis responsable de ce que je dis, pas de ce que tu comprends...

Amesam · Answer

Enfin, résultat obtenu !
Pour être honnête je ne sais pas trop comment !

Une chose aussi que je ne maitrise pas :
Pour valider le calcul il faut valider à chaque fois avec F9 et mon Module1 ne s’alimente pas !? 


Lien du fichier :o)
https://cloudtag.io/hashtag/PlanningATLsvh1953zzrlpo27

Mike-31 · Answer

Re,

tu as au moins lu mon dernier post et as tu placé mon bout de code dans les propriétés de ta feuille comme je te l'ai expliqué pour automatiser le calcul
visiblement NON !

Amesam · Answer

Bonjour Mike-31 et à tous, 

En effet et désolé, non je n'avais pas fait attention à ton message. 
Effectivement je viens de suivre ta procédure et ça fonctionne automatiquement sans la touche F9, donc nickel :o)
Par contre je ne comprends toujours pas pourquoi avant ça fonctionnait sans cet ajout !
Et que malgré cet ajout, le Module1 ne se remplit pas suite au action sur le tableau (comme avant).

Mais le principal est que ça soit fonctionnel et c'est le cas.

Merci à tous pour ce coup de pouce. 

Bonne journée.

Mike-31 · Answer

Re,

je suis très sceptique que ton code fonctionnait correctement avant sans passer par la touche F9 ou la syntaxe 
Application.Volatile en début de code ou le code Calculate que je t'ai proposé 
enfin tu as atteint ton objectif
je passe le statut de la discussion en résolu

SOMME SI COULEUR

8 réponses

Discussions similaires