Formules pour calculer des couleurs me semble bien longue..

[Evelynetfrancois]

Bonjour tout le monde
j’ai une fonction qui me calcul des temps en fonction de couleurs de références.
Je fais références à 4 couleurs différentes dans mon total
Donc j’enchaîne 4 fois la formule
N y a til pas plus court ???
merci pour toutes vos sujetions
Trés bonne soirée à vous tous
Au plaisir de vous lire
E et F


=(SumColorIfvariable($H$8:$AR$92;$B$8:$B$92;$BV$8;M3)/4/24)+(SumColorIfvariable($H$8:$AR$92;$B$8:$B$92;$BV$12;M3)/4/24)+(SumColorIfvariable($H$8:$AR$92;$B$8:$B$92;$BV$10;M3)/4/24)+(SumColorIfvariable($H$8:$AR$92;$B$8:$B$92;$BV$13;M3)/4/24)

 

[pierrejean]

Re : Formules pour calculer des couleurs me semble bien longue..

Bonjour E & F

Si la fonction SumColorIfvariable est une fonction personnalisée , il ne serait pas totalement idiot de nous la faire connaitre

 

[Evelynetfrancois]

Re : Formules pour calculer des couleurs me semble bien longue..

bonsoir pierrejean
et bien la voici.. (je l'ai trouvé sur ce site , encore merci' , mais j'ignore complètement le nom de l'auteur)
Function SumColorIfvariable(Plage_à_compter As Object, Plage_de_référence As Object, _
cellule_couleur As Range, Référence_cherchée As String) As Integer
On Error GoTo suite
Application.Volatile False
MaRef = False
SumColorIfvariable = 0
MaCoul = cellule_couleur.Interior.ColorIndex
For Each cell In Plage_à_compter
If cell.Interior.ColorIndex = MaCoul Then
maligne = cell.Row
For Each C In Plage_de_référence
If C.Row = maligne Then
If C.Value = Référence_cherchée Then
SumColorIfvariable = SumColorIfvariable + 1
End If
End If
Next
End If
Next
suite:
Exit Function
End Function