Projection budgétaire

Bonjour à tous,

je souhaite créer un classeur de projection budgétaire.

J'ai pour cela plusieurs lignes sous mise en forme conditionnelle.

Je souhaite faire des sommes suivant les couleurs données par la mise en forme.

Le pack de fonctions XLP en téléchargement, que propose le site correspond exactement à ce dont j'ai besoin.

2 problèmes cependant :

-> Je travaille dans une grosse entreprise et je ne peux pas installer le pack de fonctions XLP

Qu'à cela ne tienne, je le télécharge sur mon PC perso et je copie le code source VBA sur mon PC de boulot !

-> second problème, impossible d'accéder au code source, il y a un mot de passe !

Auriez-vous une solution pour me dépatouiller ??

A votre disposition si besoin

bonsoir,

une proposition

Function couleurmfc(cel)
    couleurmfc = Range(cel).DisplayFormat.Interior.Color
End Function

Function SommeCouleur(plage As Range, ref As Range)
    Application.Volatile
    formule = "=couleurmfc(""" & ref.Address & """)"
    couleur = ref.Parent.Evaluate(formule)
    For Each cel In plage
        formule = "=couleurmfc(""" & cel.Address & """)"
        If cel.Parent.Evaluate(formule) = couleur Then somme = somme + cel.Value
    Next
    SommeCouleur = somme
End Function

Appel de la fonction à partir d'excel

=SommeCouleur(plage,ref) où

plage est la plage sur laquelle on souhaite faire la somme des cellules dont la couleur est celle de la cellule ref

bonjour le_fameux, h2so4,

c'est un mauvais idée de compter ces couleurs

bonsoir BsAlv,

c'est un mauvais idée de compter ces couleurs

Nous sommes bien d'accord, si la couleur n'est pas le résultat d'une MFC, le résultat de la formule ne sera pas mis à jour lors d'un changement de couleur.

Merci à vous pour vos réponses.

Je vais tenter le solution de H2So4.

Je vous mettrai une capture d'écran dans la semaine, il y a peut-être une autre solution plus simple ?

Dans tous les cas, mer ci de m'aider !! ;-)