Formules pour calculer des couleurs me semble bien longue..

Evelynetfrancois

XLDnaute Impliqué
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)
 

Evelynetfrancois

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
312 814
Messages
2 092 334
Membres
105 367
dernier inscrit
schertze