Discussion :

[StephThai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour,

une fonction personnalisée ne peut que renvoyer un résultat mais aucunement intervenir sur les propriétés de la cellule …

[StephThai]

Oups... je m'apercois que dans l'exemple ci-dessus, j'ai laisse la ligne interessante en commentaire.
Dans le code original, la reference circulaire se produit en decommentant.

Je remercie par avance la bonne ame qui m'aidera

[Marc-L]

En clair, ce n'est pas possible au sein d'une fonction personnalisée ‼

Utiliser directement la mise en forme conditionnelle …

[StephThai]

Merci Marc L.
Tu veux dire par la, que je n'ai aucun moyen, par le code, de colorer ma cellule ?

Ok, merci, je vais regarder en passant par la mise en forme conditionnelle donc.

Merci beaucoup pour ta rapidité

[Marc-L]

Voir Les fonctions personnelles dans Excel, en particulier la fin de l'introduction …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[StephThai]

Ok, ca marche.
Je regarde d'abord pour la mise en forme conditionnelle, et si je n'ai plus de question, je mentionnerai "resolu".