SOMME SI COULEUR

Résolu

Amesam Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Amesam Messages postés 18 Date d'inscription Statut Membre Dernière intervention - 5 janv. 2018 à 10:58

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

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.

Afficher la suite

A voir également:

Nb si couleur ne fonctionne pas
Excel somme si couleur ne fonctionne pas - Meilleures réponses
Somme si couleur google sheet - Meilleures réponses
Excel cellule couleur si condition texte - Guide
Nb si couleur - Guide
Nb si en anglais - Guide
Nb si ens non vide ✓ - Forum Excel
Code couleur rj45 - Forum câblage

8 réponses

Réponse 1 / 8

Amesam Messages postés 18 Date d'inscription Statut Membre Dernière intervention 3

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

Pinzou76 Messages postés 614 Date d'inscription Statut Membre Dernière intervention 192

Bonjour,
Lors d'une vérification il ne faut pas plutôt faire "IF(a==b)" au lieu de "IF(a=b)" ?

mdo100 Messages postés 126 Date d'inscription Statut Membre Dernière intervention 22

Re Amesam,

Ta plage B14:AF14 ne serait-elle pas issue de MFC, car si c'est le cas, la fonction

=SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range)

ne peut pas fonctionner.

Je pense que tu devrais joindre ton fichier afin de vérifier tout ça.

@+

Réponse 3 / 8

Amesam Messages postés 18 Date d'inscription Statut Membre Dernière intervention 3

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.

mdo100 Messages postés 126 Date d'inscription Statut Membre Dernière intervention 22

Bonjour Amesam, Mike-31,

Amesam, as-tu vérifié que les couleurs:

=SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range)

sont bien identiques ?

Cordialement.

Réponse 4 / 8

Mike-31 Messages postés 18406 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

Réponse 8 / 8

Mike-31 Messages postés 18406 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

Amesam Messages postés 18 Date d'inscription Statut Membre Dernière intervention 3

Non, je me suis surement mal exprimé !
Je te confirme que ça marchait qu'avec la touche F9 et depuis l'intégration de tes lignes les modifications sont prises automatiquement après avoir validé avec la touche Entrée, donc effectivement plus besoin de passer par F9.
Par contre je ne sais pas si c'est depuis l'intégration de ces lignes je ne peux plus coller.
Le copie fonctionne car si je colle dans un autre document je récupère bien la copie ???

Je cherche pourquoi. Merci.

Amesam Messages postés 18 Date d'inscription Statut Membre Dernière intervention 3

Après test, je confirme que suite à l'ajout de ces lignes :

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

Le coller ne fonctionne plus.

J'ai rajouté :

Application.OnKey “ ^ C”
Application.OnKey “ ^ X”
Application.OnKey “ ^ V”

Mais idem.

Si idée, merci.

Discussions similaires

NB.SI critère couleur

somme sous condition de couleur de cellule

NB.SI.ENS et condition OU

SOMME SI GOOGLE SHEET

Somme.si.ens avec 3 conditions... 2 en colonnes et une en ligne

Somme.si avec critère inférieur ou égal mois

Votre réponse

Discussions similaires