From e4aeaff1bdbe8c78ca8a0a155df3578d915add5c Mon Sep 17 00:00:00 2001
From: Croisard <71137045+nicolascroisard@users.noreply.github.com>
Date: Fri, 25 Oct 2024 09:18:41 +0100
Subject: [PATCH] Update ValiAddon.bas

The comment for a cell containing a vali will be refreshed ensuring consistency with valispace in case the name of the vali has changed.

Also, the comment is extended to show the full name of the vali, in case the same name is used in different context.
---
 src/ValiAddon.bas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ValiAddon.bas b/src/ValiAddon.bas
index e50e0bb..a555a81 100644
--- a/src/ValiAddon.bas
+++ b/src/ValiAddon.bas
@@ -243,8 +243,9 @@ Sub RefreshAllValis()
             'update the "V_xxx" fields
             For Each rCell In valiRange.Cells
                 rCell.FormulaR1C1 = valis(id)(content)
+                nms(n).Comment = valis(id)(7)  # Update the comment in case the vali name has changed
                 If create_links = True Then
-                    ActiveSheet.Hyperlinks.Add Anchor:=rCell, Address:=vURL & "/project/" & valis(id)(1) & "/components/valis/" & id & "/", ScreenTip:=valis(id)(0) & ": " & valis(id)(4) & scrtip
+                    ActiveSheet.Hyperlinks.Add Anchor:=rCell, Address:=vURL & "/project/" & valis(id)(1) & "/components/valis/" & id & "/", ScreenTip:=valis(id)(0) & ": " & valis(id)(4) & scrtip  & " (" & valis(id)(7) & ")"
                 End If
             Next
         ElseIf Not valis.Exists(id) And InStr(nms(n).Name, "V_") <> 0 Then