VBA Compte couleur personalisé

Lleytt · 21 Juillet 2015

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 · 22 Juillet 2015

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

Code:

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

avec la fonction NCoulP :

Code:

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 · 22 Juillet 2015

Re : VBA Compte couleur personalisé

Merci beaucoup!
Cela marche parfaitement.

Bonne journée!

VBA Compte couleur personalisé

Lleytt

XLDnaute Nouveau

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Lleytt

XLDnaute Nouveau

Discussions similaires