Salut,
En fait ton problème (si j'ai bien compris) se résume a compter le nombre de cellule verte, jaune et bleu.
Je n'ai pas trouvé de formule pour ca, par contre, si tu copies cette fonction dans un module :
Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long
Application.Volatile
Dim Cellule As Range
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = Couleur Then
NbreCellulesCouleur = NbreCellulesCouleur + 1
End If
Next Cellule
End Function
Cela te permettra de compter le nombre de cellule jaune en employant la "formule" suivante :
=NbreCellulesCouleur($C7:$AP7;6) clientele / jaune
=NbreCellulesCouleur($C7:$AP7;37) Repas / Bleu
=NbreCellulesCouleur($C7:$AP7;4) Trajet / vert
Après pour le pourcentage .... :
exemple :
%Vert : =NbreCellulesCouleur($C7:$AP7;4) / (NbreCellulesCouleur($C7:$AP7;6) + NbreCellulesCouleur($C7:$AP7;37) + NbreCellulesCouleur($C7:$AP7;4) ) * 100
J'ai trouvé ce petit bout de code en faisant google.
Recherche : "Nombre de cellules selon leur couleurs [Résolu]"
Merci a Pijaku.
Ca correspond a ta demande ou je suis a coté ?
Bigdams