Bonjour,
J'ai créé une petite fonction qui somme toutes les cases d'une colonne dont la couleur est celle d'une autre cellule dont on passe l'adresse en argument.
C'est à dire :
Dans la cellule B16, j'écris
Les cellules de la même couleur que A23 sont sommées en B16.
Mon problème est que la cellule référence (A23 dans l'exemple) doit rester cachée, et que Excel réagit en me disant qu'il y a un problème de référence circulaire.
Voici le code de ma fonction :
Quelqu'un a une piste ?
Merci d'avance...
J'ai créé une petite fonction qui somme toutes les cases d'une colonne dont la couleur est celle d'une autre cellule dont on passe l'adresse en argument.
C'est à dire :
Dans la cellule B16, j'écris
Code:
=SommeCoul("A23")
Mon problème est que la cellule référence (A23 dans l'exemple) doit rester cachée, et que Excel réagit en me disant qu'il y a un problème de référence circulaire.
Voici le code de ma fonction :
Code:
Function SommeCoul(Arg1 As String) As Single
Application.Volatile
Dim cellule As Range
For Each cellule In ActiveSheet.Range( _
Cells(20, Application.ThisCell.Column), _
Cells(Cells(65535, Application.ThisCell.Column).End(xlUp).Row, Application.ThisCell.Column))
If cellule.Interior.ColorIndex = ActiveSheet.Range(Arg1).Interior.ColorIndex And IsNumeric(cellule.Value) Then
total = Round(total + cellule.Value, 2)
End If
Next
SommeCoul = total
End Function
Quelqu'un a une piste ?
Merci d'avance...