XL 2019 Code VBA - Addition de Cellules en couleur avec Texte

Caninge · 16 Mars 2021

Bonjour à tous,

j'ai récupéré une macro pour additionner des cellules colorisés.
sauf qu'elle ne comptabilise pas les cellules avec du texte.
Il y a peut-être une modification à apporter !
Je vous remercie de bien vouloir me donner un coup de main.

Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function

sylvanu · 16 Mars 2021

Bonjour Caninge,
Vraiment désolé, mais votre macro marche.

Voir PJ.

Caninge · 16 Mars 2021

Bonjour Sylvanu

Oui effectivement !

Les cellules sont colorisées avec une Mise en Forme Conditionnelle.

Peut-être là le problème non ?

A plus

sylvanu · 16 Mars 2021

Re,
Effectivement votre macro ne peut pas fonctionner si les cellules sont colorisées par MFC. Mais ce n'était pas précisé dans votre post.
Il y a un post à ce sujet sur XLD, mais ça me semble complexe :

Détection couleur MFC

Bonsoir à tous, Sur VBA il est facile de connaître la couleur d'une cellule par le code : ActiveCell.Interior.ColorIndex Existe-t-il un moyen de connaître la couleur résultant d'une mise en forme conditionnelle (sans faire intervenir sa formule bien sûr) ? Merci d'avance et A+

www.excel-downloads.com

Caninge · 16 Mars 2021

Re,
oui effectivement c'est un peu compliqué…
Merci

Caninge · 17 Mars 2021

Bonjour à tous,

j'ai fait une copie de mon tableau.
De cette façon on peut voir les mises en forme conditionnelle qui sont probablement
à l'origine du problème: Les calculs sont faux.
Dans la colonne C le résultat devrait afficher 5 alors qu'il ne prend que les deux cellules sans texte.
Dans la colonne D le résultat devrait afficher 3
Merci d'élucider ce problème.

A plus.

sylvanu · 17 Mars 2021

Caninge à dit:
Merci d'élucider ce problème.

C'est une drôle de tournure, c'est celle qu'utilise mon directeur de centre pour donner un ordre.

Comme déjà dit cette macro ne tient pas compte des MFC. Donc le résultat est bien 2, C18 et C20.

Caninge · 17 Mars 2021

Bonjour Sylvanu,

Oui c'est vrai que c'est mal demandé. Je m'en excuse.
En plus ce n'est pas mon habitude.
Je vais voir si je peux faire autrement. Peut-être modifier.
Merci

sylvanu · 17 Mars 2021

Si vous n'avez qu'une seule MFC immuable, vous pouvez intégrer la formule MFC dans votre calcul

VB:

=CountCcolor(C4:C21;$A$1)+NB.SI($C$4:$G$4;C15)

Le premier membre compte les couleurs de cellules, le second membre compte les cellules comme les MFC.

Caninge · 17 Mars 2021

re,

ah mince je pensais que ça allait fonctionner. J'ai peut-être mal écrit la formule.
Je ne suis pas bon...

sylvanu · 17 Mars 2021

Ce n'est pas la MFC qu'il faut changer, c'est la formule en C2.

Caninge · 17 Mars 2021

J'ai pourtant mis la formule en C2.
A noter qu'il y a deux MFC.

job75 · 17 Mars 2021

Bonsoir Caninge, sylvanu,

La propriété DisplayFormat permet de compter aussi les couleurs appliquées par MFC.

Mais elle ne fonctionne pas dans une fonction VBA, il faut une procédure Sub :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim coul&, c As Range, n&
coul = [A1].Interior.Color
For Each c In UsedRange
    If c.DisplayFormat.Interior.Color = coul Then n = n + 1
Next
Application.EnableEvents = False 'désactive les évènements
[C2] = n - 1
Application.EnableEvents = True 'réactive les évènements
End Sub

La cellule C2 est mise à jour quand une cellule quelconque est modifiée.

A+

sylvanu · 17 Mars 2021

Bonsoir Caninge, Job,
Le problème est que DisplayFormat n'est pas valide avec mon VBA 6.3, c'est pour ça que j'ai fait l'impasse, et que je ne propose jamais.
Mais Caninge avec son 2019 ne devrait pas avoir de problème.

Caninge · 17 Mars 2021

Bonsoir Job75, sylvanu,
je ne pourrais vous dire si DisplayFormat n'est pas valide lol.
La proposition de JOB75 est bien.
Elle fait l'addition de toutes les cellules mais j'aimerais bien avoir l'addition de chaque colonne.
C'est pour un arbre généalogique, environ 2 à 300 colonnes prévues.
Merci

XL 2019 Code VBA - Addition de Cellules en couleur avec Texte

Caninge

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Pièces jointes

Caninge

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Détection couleur MFC

Caninge

XLDnaute Accro

Caninge

XLDnaute Accro

Pièces jointes

sylvanu

XLDnaute Barbatruc

Caninge

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Caninge

XLDnaute Accro

Pièces jointes

sylvanu

XLDnaute Barbatruc

Caninge

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Caninge

XLDnaute Accro

Discussions similaires