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

[Caninge]

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]

Bonjour Caninge,
Vraiment désolé, mais votre macro marche. 😂🤣😂😂
Voir PJ.

 

[Caninge]

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]

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]

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

 

[Caninge]

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]

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]

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]

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

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

re,

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

 

[sylvanu]

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

 

[Caninge]

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

 

[job75]

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 :

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]

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]

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