Créer fonction utilisant couleur de fond d'une cellule

[Sébastien]

Bonjour à tous,

Je voudrais créer une fonction utilisant la couleur de fond d'une cellule.
Exemple: une série de colonnes contenant des chiffres et dont la couleur de fond est différente: les colonnes A, C, E,F ont un fond bleu et les colonnes B, D, G et H un fond vert.
En J, je souhaite faire la somme des chiffres dont la couleur de fond est verte.
La formule doit être une formule générale qui tient compte d'un changement éventuel de couleur.
Je n'y connais pas grand chose en VBA, c'est pourquoi je fais appel à vous.

Merci pour votre aide

Sébastien

 

[Cathy]

Salut Sébastien, comme il n'y a plus de recherche, je t'envoie une fonction récupérée sur ce forum

Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double
Dim Cell As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each Cell In PlageEntree.Cells
If Cell.Formula <> "" Then
If Cell.Interior.ColorIndex = ColorIndex Then TempSum _
= TempSum + Cell.Value
End If
Next Cell
On Error GoTo 0
Set Cell = Nothing
SumByColor = TempSum
End Function

@+

C@thy

 

[Mytå]

Voila Sebastien

' example: =SumByColor($A$1:$A$20,B1)
' range A1:A20 is the range you want to sum
' range B1 is a cell with the background color you want to sum

Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double
Dim Cell As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each Cell In PlageEntree.Cells
If Cell.Formula <> "" Then
If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + _
Cell.Value
End If
Next Cell
On Error GoTo 0
Set Cell = Nothing

mytå
SumByColor = TempSum
End Function

 

[david]

fonction de resolution d'un systeme linéaire par la methode des determinants

Quelqu'un pourrait-il m'envoyer le code d'une fonction permettant de résoudre un systeme linéaire à l'aide des determinants?
merci!

 

[Brigitte]

Bonsoir à tous, bonsoir David,


David, ton appartenance à l'INSA de Toulouse me fait m'intéresser à ton post, mon fils et ma fille sortant du même établissement, l'un de Lyon l'autre de Rennes, ca fait vibrer la corde sensible de la maman que je suis.

Tout ca pour te demander pourquoi, au lieu de poster un nouveau message tu t'es raccroché à celui ci...

Ta question y serait plus à même d'être solutionnée.

Crois moi cependant bien désolée de ne pouvoir t'aider, mais bon, un petit conseil, entre insaïens...

Bon courage...

Brigitte