SOMME SI COULEUR

Résolu/Fermé

Amesam Messages postés 18 Date d'inscription dimanche 2 décembre 2012 Statut Membre Dernière intervention 9 janvier 2018 - 4 janv. 2018 à 14:49
Amesam Messages postés 18 Date d'inscription dimanche 2 décembre 2012 Statut Membre Dernière intervention 9 janvier 2018 - 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.

A voir également:

Somme si couleur google sheet
Google sheet somme si couleur - Meilleures réponses
Excel somme si couleur ne fonctionne pas - Meilleures réponses
Somme si couleur - Guide
Dns google - Guide
Google maps satellite - Guide
Google earth - Télécharger - 3D
Google sheet si contient ✓ - Forum Excel

8 réponses

Réponse 1 / 8

Amesam Messages postés 18 Date d'inscription dimanche 2 décembre 2012 Statut Membre Dernière intervention 9 janvier 2018 3
Modifié le 4 janv. 2018 à 16:56

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 609 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 25 février 2019 190
4 janv. 2018 à 17:12

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 jeudi 9 décembre 2010 Statut Membre Dernière intervention 21 février 2019 22
4 janv. 2018 à 18:52

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 dimanche 2 décembre 2012 Statut Membre Dernière intervention 9 janvier 2018 3
Modifié le 4 janv. 2018 à 16:30

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 jeudi 9 décembre 2010 Statut Membre Dernière intervention 21 février 2019 22
4 janv. 2018 à 16:30

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 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié le 4 janv. 2018 à 19:55

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 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
5 janv. 2018 à 08:45

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 dimanche 2 décembre 2012 Statut Membre Dernière intervention 9 janvier 2018 3
5 janv. 2018 à 10:22

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 dimanche 2 décembre 2012 Statut Membre Dernière intervention 9 janvier 2018 3
Modifié le 5 janv. 2018 à 11:00

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

fonction NB.SI.COULEUR(range ; critère)

SOMME SI GOOGLE SHEET

Mise en forme conditionnelle en fonction d'une autre cellule

Couleur d'une cellule en fonction d'une autre cellule

Discussions similaires

Newsletters