Bonjour !
Je souhaite additionner les valeurs présentes dans les cases d'une ligne, si ces cases sont colorées (via un sub VBA) selon un certain RVB (qui n'est pas une couleur "classique" donc.)
J'ai donc créé un module, et j'y ai inséré cette fonction pour me faciliter la vie (puisque j'ai plus de 600 lignes à calculer)
Seulement, j'aimerais pouvoir, dans la fonction, demander à lire le code RVB plutôt que le code couleur Excel : SommeSiCouleurFond(Plage ; (0,250,100)) par exemple.
Ce serait plus pratique pour moi. Je pense que ça ne doit pas être très très compliqué, mais je n'arrive pas à mettre le doigt sur la façon exacte de faire.
Je souhaite additionner les valeurs présentes dans les cases d'une ligne, si ces cases sont colorées (via un sub VBA) selon un certain RVB (qui n'est pas une couleur "classique" donc.)
J'ai donc créé un module, et j'y ai inséré cette fonction pour me faciliter la vie (puisque j'ai plus de 600 lignes à calculer)
VB:
Function SommeSiCouleurFond(Plage As Range, NumeroDeCouleur%) As Double
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleurFond = SommeSiCouleurFond + wCell.Value
End If
Next
End Function
Seulement, j'aimerais pouvoir, dans la fonction, demander à lire le code RVB plutôt que le code couleur Excel : SommeSiCouleurFond(Plage ; (0,250,100)) par exemple.
Ce serait plus pratique pour moi. Je pense que ça ne doit pas être très très compliqué, mais je n'arrive pas à mettre le doigt sur la façon exacte de faire.