Re: Hyperliens d'Excel sous Win 11

In article <vbctdk$eneo$1@dont-email.me>, bitwyse@le{TIRET}maquis.net says...

 
DuboisP a écrit :

 
et si tu nous donnais le code de ta macro / vba ?

 
Ben si ça t'intéresse (pour ton éducation?), aucun pb.
Mais ça n'aidera aucunement à avancer le problème du blocage (pour des
raisons de sécurité) de Excel par Win 11.
 
--------
Pour comprendre le macro il faut déjà savoir que le tableur consiste en
- en le réduisant au strict minimum nécessaire - 2 feuilles: "incidents"
et "reportages".
  La première contient une liste (verticale) d'incidents en partant de
D6. Chaque cellule est suivi sur son row - en partant de I6 - par une
autre qui contient "-->" qui devient l'hyperlien vers...
  l'URL défini dans la deuxième qui en contient une liste (en partant de
A6), qui référencent les pages qui parlent de ces incidents, chacun dans
la cellule correspondante de son row.
 
--------
Sub liens()
 
Dim Rge As Range, Cel As Range, Fin As Integer
 
With Worksheets("incidents")
   Fin = .Range("I" & .Rows.Count).End(xlUp).Row
   Set Rge = .Range("I6:I" & Fin)
 
   For Each Cel In Rge.Cells
     If Cel = "-->" Then
       .Hyperlinks.Add .Range("I" & Cel.Row), "#reportages!A" & Cel.Row
     End If
   Next
 
  End With
 
End Sub
--------

Mon code est différent du tien:
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), _