Fonction Valeur en fonction de la couleur de fond de cellule

Bonjour,

J'ai un tableau de suivi de mes effectifs sur les chantiers. (Cf exemple dans fichier joint).
Je souhaite afficher l'occupation des collègues de mon équipe.
Je m'explique : Sur le chantier n°1, Bruno A ("BA") est peu impliqué les deux premières semaines ("BA" sur fond jaune) et très impliqué les 3 semaines suivantes ("BA" sur fond orange).
Je souhaiterai que dans mon tableau bilan s'affiche la valeur : 4 ( 2semaines en jaune (=2*0.5) + 3 semaines en orange (=3*1)).

Comment faire cette fonction en vba ?

Merci d'avance,

Bonjour

La couleur ne doit pas servir de données mais juste de mise en exergue.

Un changement de couleur ne déclenche pas de calcul ce qui même avec du VBA ne permet pas d'être sûr des résultats affichés

Bonjour loiclg24,

Même si je rejoins j'avis de 78chris, à savoir les mises en forme sont censées permettre de mettre en évidence les informations, je te propose une solution à ton problème au moyen d'une fonction personnalisée :

Function SOMME_PRESENCE(Plage_Presence As Range, Nom As String) As Double

Dim ValColor As Byte
Dim ValPresence As Double

For Each cell In Plage_Presence

    If cell.Value = Nom Then

        ValColor = cell.Interior.ColorIndex

        Select Case ValColor
            Case 6, 27, 36, 44, 45: ValPresence = 0.5
            Case 22, 46: ValPresence = 1
            Case Else: ValPresence = 0
        End Select

    SOMME_PRESENCE = SOMME_PRESENCE + ValPresence

    End If

Next cell

End Function

Il faudra bien veiller à mettre les bonnes couleurs (si possible orange et jaune les plus vifs) dans tes cellules pour éviter de rencontrer des problèmes.

Cordialement,