Bonjour,
Je souhaite connaître le nombre de case bleue dans mon tableau.
Quelle formule est la plus appropriée ?
Planning 2021.xlsx (15,4 Ko)
Bonsoir Bounty,
Aucune formule possible, a moins de mettre un caractère avec une MFC pour donner la couleur
Sinon ce sera par VBA 
Ci-joint une possibilité en mettant la lettre « T » dans les cellules (exemple octobre)
A+
Bounty_Planning 2021.xlsx (17,6 Ko)
Bonjour,
Merci pour ta réponse, je vais pouvoir étendre la formule sur les autres mois.
Bonne journée
Comment faut-il faire pour que la lettre « T » comptabilise aussi les cellules du mois de Novembre et Décembre ?
Il faut les saisir comme j’ai fait pour octobre et reproduire la MFC partout
ça y est ça fonctionne, merci pour ton aide.
Juste pour savoir la fonction NB SI COULEUR peut-elle être utilisée ?
Merci
Bonsoir Bounty,
Si vous avez cette fonction oui, mais elle vient de quelle Add-in ou macro complémentaire !?
A+
Ah ok donc je ne l’ai pas
Bonjour Nono,
Existe-t-il une autre solution car j’aimerais pouvoir mettre des annotations dans mes cellules ?
Merci pour votre aide
Bonjour Bounty,
Annotation ou libellé !?
Annotation, vous pouvez créer une note dans une cellule comme je l’ai fait
Un libellé, là effectivement c’est autre chose, il faut alors une fonction en VBA, que voici 
Bounty_Planning 2021 v2.xlsm (23,2 Ko)
A+
Bonsoir Nono, non ça ne me va pas le mode vba, car je ne maîtrise pas.
Je vais rester sur votre première idée.
Merci beaucoup
Re,
Ok Bounty, mais vous savez là, c’est un tout petit code facile à comprendre
Mais c’est comme vous le souhaitez
Je dois ajouter d’autres règles dans mon planning. Avec le mode vba pourrais-je dupliquer mon tableau sans à avoir refaire les manip (vba) ?
Merci Nono
Re,
La fonction que voici peut être appelée de n’importe ou
Function NbSiCouleur(Plage As Range, CelCoul As Range)
Dim Cel As Range
Application.Volatile
NbSiCouleur = 0
For Each Cel In Plage
If Cel.Interior.ColorIndex = CelCoul.Interior.ColorIndex Then
NbSiCouleur = NbSiCouleur + 1
End If
Next Cel
End Function
Il suffit de saisir dans une cellule
=NbSiCouleur(PlageACompter,CelluleContenantLaCouleur)
Vous voyez rien de sorcier
L’avantage, c’est que vous pouvez mettre ce que vous voulez dans les cellules de couleur
@+
Avec cette fonction je pourrais dupliquer mon tableau sans avoir à renseigner la fonction ???
Heuuu
J’ai pas compris la question
Finalement j’ai opté pour la première solution, les règles et les couleurs.
1 « J'aime »
Re,
Bounty, si je puis me permettre, vous avez quel âge ?