Colorer une cellule - circular reference
Bonjour,
je viens de me mettre au VBA, et je rencontre un problème de "Circular Reference" a l'appel d'une de mes fonctions sur une cellule.
Pour essayer de faire simple :
Dans Excel, j'appelle la fonction SetRoomStatus sur ma cellule active(fonction que j'ai codée), et je lui donne pour paramètres 2 autres cellules.
Mon code regarde la couleur de ces 2 cellules et, en fonction de la combinaison de ces deux couleurs, il affecte un statut a ma cellule active (OPEN ou CLOSE).
En plus, d'affecter cette valeur (OPEN ou CLOSE), je souhaite colorer ma cellule active. C'est précisément l'ajout de cette ligne qui me fait passer en "Circular Reference". Excel semble appeler indéfiniment la fonction SetRoomStatus, avec les mêmes paramètres.
Voici la fonction que j'ai codée:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Public Function SetRoomStatus(selA As Range, selB As Range)
RoomClosed = IsRoomClosed(selA , selB )
If (RoomClosed = True) Then
'Range("F37").Interior.ColorIndex = 8
SetRoomStatus = "CLOSE"
Else
'Range("E37").Interior.ColorIndex = 2
SetRoomStatus = "OPEN"
End If
End Function |
