Calculer le nombre de cellules ayant même couleur de remplissage et autre

[Nerys]

Bonjour à tous!

Je dispose d'un tableau où un bon nombre de cellules ont une même couleur de remplissage avec en commun une séquence de caractères. Je dois obtenir ce nombre et j'ai beau cherché, même sur le forum, pas de solution. Pour être plus claire, je joins un exemple.

Merci de m'aiguiller! Les membres de ce site m'ont éclairée plus d'une fois! Merci par avance

A+

 

[BOISGONTIER]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

Bonjour,

cf PJ

Fonction sommeCouleurFond

JB

 

[Nerys]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

Merci JB mais ça n'a pas fonctionné sur mon tableau 🙁

Il suffit que je rajoute la couleur à une cellule ne comportant pas la séquence recherchée (ABC) et hop il la compte!

En plus, je n'ai pas pu trouver l'explication de la syntaxe de la fonction.

Je sais qu'il faut combiner entre la condition de couleur de fond et la condition d'occurrence précise d'une séquence de caractères, genre : NB(couleur X &"ABC*). enfin, je pense.

Nérys

 

[BOISGONTIER]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

Cf Fonction perso Matricielle

jb

 

[Nerys]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

voilà le message reçu en tentant d'accéder à vos liens : Le serveur à l'adresse boisgontierjacques.free.fr met trop de temps à répondre.

NRS

 

[BOISGONTIER]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

Voir PJ

JB

 

[Nerys]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

Merci, je vois bien que vous m'aviez bien saisie mais je ne parviens pas à transposer sur mon fichier d'exemple. Pour que je comprenne : pour pouvoir utiliser la fonction couleurfond, qu'est-ce qu'il y a lieu de faire? J'ai recopié toute la formule, changer les plages, rien à faire! La fonction SOMMPROD est bien reconnue. Merci de m'aider

NRS

 

[kingfadhel]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

Bonsoir,

Voila une solution VBA

Sub comptage()
Dim Crit As String
Dim cel As Range
Dim cmpt, Fond As Integer
cmpt = 0
Fond = Range("B1").Interior.ColorIndex
For Each cel In Range("B3:b15")
Crit = Left(cel, 3)
If Crit = Range("A1") And cel.Interior.ColorIndex = Fond Then
cmpt = cmpt + 1
End If
Next
Range("E2") = cmpt
End Sub

 

[kingfadhel]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

Re,
La plage "B3:B15" être variable en ajoutant le code suivant avant le For ......
DerLig = Range("B" & Rows.Count).End(xlUp).Row
et en remplacant
For Each cel In Range("B3:b15")

par

For Each cel In Range("B3:B" & DerLig)

 

[Nerys]

Re : Calculer le nombre de cellules ayant même couleur de remplissage et autre

Bonsoir kingfadhel,

GROS GROS MERCI!

Nérys