Somme des valeurs des cellules colorées

[BPM]

Bonjour à tous,
Est-il possible de rentrer une formule qui calcule la somme de toutes les valeurs des cellules qui possèdent un fond d'une couleur précise sans indiquer le chemin précis de ces mêmes cellules.
Merci
BPM

 

[Gael]

Bonjour BPM,

C'est possible avec la fonction suivante. le premier paramètre est la plage de cellules et le deuxième une cellule avec la couleur à totaliser (qui peut aussi faire partie de la plage sélectionnée).

Attention:

[li]cela ne marche pas avec des couleurs définies en MFC
Le fait de changer la couleur d'une cellule n'entraîne pas de recalcul, il faut faire F9 ou changer une valeur d'une cellule.
[/li]

' fonction xl permettant de sommer et compter des cellules par leur couleur de fond
' -----------------------------------------------------------------------------------
Function SumByColor(InputRange As Range, ColorRange As Range) As Double
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next ' ignore cells without values
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + cl.Value
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
End Function

@+

Gael

 

[lio]

Bonjour Gael,BPM

J'ai vu passer un message qui traiter de ce sujet.
Ci joint le dossier.
@ + [file name=Classeurcoul_20051019204330.zip size=8494]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeurcoul_20051019204330.zip[/file]

 

[BPM]

Merci à vous deux Gael et Lio.

C'est génial! mais cela me promet du bon temps car je ne sais pas comment écrire ou récupérer la fonction. Je suppose qu'il faut utiliser VisualBasic ou qlq chose dans ce gout là...
Et là, je nage complet
Bon je me lance, je pars à l'aventure.

Merci encore

BPM

 

[Gael]

Bonsoir BPM, Bonsoir Lio,

Rien de plus simple.

[li]Tu ouvres Excel sur ton fichier ou un nouveau fichier[/li]
[li]Tu fais Alt-F11 pour lancer l'éditeur VBA ou Outils-Macro-Visual Basic editor.[/li]
[li]Tu fais affichage - explorateur de projets[/li]
[li]Tu fais insertion module[/li]
[li]dans la fenêtre de droite, tu fais un copier/coller du code que je t'ai envoyé[/li]
[li]tu peux fermer VBA[/li]

Dans ton fichier, si tu fais insertion fonction, tu doit voir la nouvelle fonction dans la liste 'Sumbycolor'.

@+

Gael

 

[BPM]

Merci pour les infos Gael, ça marche du tonnerre.

Bonne nuit!

BPM