Compter le nombre de cellules en couleur selon leur valeur

[Caninge]

Bonjour à tous.

Une question souvent posée,mais pratiquement à chaque fois je n'arrive pas à trouver ma réponse sur ce sujet.

Cette fois-ci je voudrais compter les cellules ayant la même valeur et uniquement celles qui sont en couleur.

Comme à l'accoutumée je joins un petit fichier.

Merci d'avance.

 

[JNP]

Re : Compter le nombre de cellules en couleur selon leur valeur

Bonjour Caninge 🙂,
Comme je l'ai déjà écrit sur ce forum (je ne me rappelle plus du fil...), j'utilise une fonction VBA très pratique :

Function NombreCellulesRouge(CellulesSélectionnées)
Application.Volatile
Dim NombreCellule As Integer, I As Integer
NombreCellule = CellulesSélectionnées.Count
For I = 1 To NombreCellule
Select Case CellulesSélectionnées(I).Interior.ColorIndex
    Case [COLOR=red]?? (N° de la couleur que tu veux compter)[/COLOR]
        NombreCellulesRouge = NombreCellulesRouge + 1
End Select
Next I
End Function

A te lire 😎

 

[Caninge]

Re : Compter le nombre de cellules en couleur selon leur valeur

Bonjour JNP

je ne comprends pas bien,

il me manque quelques éléments,

notamment les formules à mettre dans les cellules concernées.

Si tu pouvais me renvoyer le fichier corrigé ça serait bien.

Merci

 

[Caninge]

Re : Compter le nombre de cellules en couleur selon leur valeur

Re,

J'ai cherché dans les exemples, j'ai presque trouvé ce que je voulais.

Un petit coup de main me serait bien utile.

Je vous remercie.

Bonne soirée.

 

[JNP]

Re : Compter le nombre de cellules en couleur selon leur valeur

Re 🙂,
Excuses-moi, j'étais allé faire un tour 😉.
Voilà qui devrait faire ton bonheur 😎.

 

[Caninge]

Re : Compter le nombre de cellules en couleur selon leur valeur

Re,

je regarde et je te tiens au courant.

A plus

merci

 

[excalibur]

Re : Compter le nombre de cellules en couleur selon leur valeur

bonsoir Caninge JNP le forum en attendant une solution par formules
salutations

 

[Banzai64]

Re : Compter le nombre de cellules en couleur selon leur valeur

Bonjour

Une autre approche

 

[abc]

Re : Compter le nombre de cellules en couleur selon leur valeur

Bonsoir,
quelques exemples
A +

 

[abc]

Re : Compter le nombre de cellules en couleur selon leur valeur

Re
avec exemples,erreur de mani
A +

 

[Caninge]

Re : Compter le nombre de cellules en couleur selon leur valeur

Bonsoir à tous,

J'ai pris la solution de JNP.

Elle fonctionne bien mais comme il y a des mises en forme conditionnelles sur chaque cellules tout le monde est à zéro.

Comme pour question pour un champion.

A plus

merci

 

[JNP]

Re : Compter le nombre de cellules en couleur selon leur valeur

Re le forum 🙂,
Je me sens un peu petit devant cette débauche de possibilité 😱,
mais je mets de côté, ça m'intéresse 😛.
Chapeau bas, messieurs 😎

Modif: Euh, merci d'avoir pris ma solution, par contre, lire une MFC depuis VBA, je sais pas... J'espère que ceux à qui je tirais mon chapeau pouront t'aider...

 

[skoobi]

Re : Compter le nombre de cellules en couleur selon leur valeur

Bonsoir tout le monde,

lire une MFC depuis VBA,

C'est la propriété "FormatConditions" de l'objet Range.
A exploiter...

 

[Caninge]

Re : Compter le nombre de cellules en couleur selon leur valeur

Bonjour tout le monde,

Oui c'est bien cela, sans vouloir trop connaître, c'est bien les mises en forme conditionnelles qui empêchent le bon fonctionnement de la macro.

J'ai fais les essais avec toutes les solutions proposées.

Peut-être changer des lignes mais alors là, je suis nul.

Bon dimanche

A +

Merci

 

[skoobi]

Re : Compter le nombre de cellules en couleur selon leur valeur

Re bonjour,

dans ce cas, au lieu de vouloir vérifier si la couleur de la cellule est rouge (ce qui ne va pas marcher vu que tu as une MFC), applique la condition que tu mets dans la MFC si tu vois ce que je veux dire.

par exemple si pour la MFC la condition est que la cellule doit être égal à "a" pour avoir une couleur rouge et bien dans la macro tu récupères cette condition :
If lacellule.Value = "a" au lieu de If lacellule.Interior.ColorIndex = (le N° qui correspond au rouge).