Comptabiliser cellules non colorées

[chris6999]

Bonjour


Je relance un sujet que j'ai posé il y a quelques jours et sur lequel je suis toujours bloquée:
Je cherche à comptabiliser le nombre de cellules sans remplissage couleur (et non de couleur blanche) dans une plage définie comme suit :

Traiter toutes les lignes où A est non vide
-A partir de la ligne 2
-A partir de la colonne D

Dans cette plage le traitement n' est réalisé que si la valeur de la ligne 1 n'est pas vide.
La macro renvoi dans la colonne C et pour chaque ligne traitée le nombre de cellules "incolores"

Boigontier m'a donné une proposition de fonction qui s'exécute à partir d'un Worksheet_SelectionChange mais que je n'arrive pas à adapter pour un balayage des cellules.

Je vous remercie d'avance pour votre aide
Cordialement

 

[phlaurent55]

Re : Comptabiliser cellules non colorées

Bonjour Chris,

le fichier en retour

à+
Philippe

 

[job75]

Re : Comptabiliser cellules non colorées

Bonjour chris6999,

Placez cette fonction VBA dans un module standard :

Function NbIncolore(Vecteur As Range, VecteurTest As Range) As Long
Application.Volatile
Dim i As Long
For i = 1 To Vecteur.Count
  If Vecteur(i).Interior.ColorIndex = xlNone And _
    VecteurTest(i) <> "" Then NbIncolore = NbIncolore + 1
Next
End Function

Puis entrez en C2 cette formule, à tirer vers le bas :

=SI(A2="";"";NbIncolore(D2:BZ2;D$1:BZ$1))

Fichier joint.

Nota : si l'on applique ou efface une couleur appuyer sur la touche F9 pour le recalcul de la formule.

Edit : hello Philippe

A+

 

[chris6999]

Re : Comptabiliser cellules non colorées

Bonjour Philippe

C'est juste parfait. Je m'en vais me pencher sur ton code pour voir comment tu as réussi à réaliser ce miracle.

Merci encore et bonne fin de week end

 

[chris6999]

Re : Comptabiliser cellules non colorées

Bon un second retour

J'ai pu adapter ta proposition sans problème.
Juste par curiosité, à quoi correspond la valeur -4142 dans If Cells(i, j).Interior.ColorIndex = -4142
Aurait-on pu mettre If Cells(i, j).Interior.ColorIndex = none ?

Merci encore en tous cas
Cordialement