VBA Compte couleur personalisé

[Lleytt]

Bonjour à tous,

Je viens vers vous pour m'aider à résoudre un problème.

Mon fichier Excel ci-joint possède une macro "compte couleur" qui me permet de remplir le tableau 1 en fonction de la colonne A. Il suffit d'inscrire la plage désirée et le compte se fait.

Cependant, sur le tableau 2, les plages que je désire "comptées" ne se suivent pas directement. Est-il possible d'insérer plusieurs plage d'analyse à la formule?

Exemple : pour le numéro 1, l'analyse doit s'étendre de C2 à X3 ET de C21 à X21.

Je n'arrive pas à le faire. Pourriez-vous m'aider?

Merci d'avance,

Lleytt

 

[ROGER2327]

Re : VBA Compte couleur personalisé

Bonjour Lleytt.

(...) sur le tableau 2, les plages que je désire "comptées" ne se suivent pas directement. Est-il possible d'insérer plusieurs plage d'analyse à la formule?

Exemple : pour le numéro 1, l'analyse doit s'étendre de C2 à X3 ET de C21 à X21.
(...)

Essayez​

=NCoulP($A40;C$2:X$3;C$21:X$21)

avec la fonction NCoulP :​

Function NCoulP(ref As Range, ParamArray pr() As Variant)
Application.Volatile
Dim i&, coul&, r As Range, c As Range
    coul = ref.Interior.Color
    For i = 0 To UBound(pr)
        Set r = pr(i)
        For Each c In r
            If c.Interior.Color = coul Then NCoulP = NCoulP + 1
        Next
    Next
End Function

Bonne journée.


ℝOGER2327
#7969

Lundi 9 Tatane 142 (Saints Ecrase-Merdre, sectateurs - fête Suprême Quarte)
4 Thermidor An CCXXIII, 0,0906h - ivraie
2015-W30-3T00:13:02Z

 

[Lleytt]

Re : VBA Compte couleur personalisé

Merci beaucoup!
Cela marche parfaitement.

Bonne journée!