Sujet : Re: Hyperliens d'Excel sous Win 11
De : bitwyse (at) *nospam* le{TIRET}maquis.net (CriCri)
Groupes : fr.comp.os.ms-windowsDate : 05. Sep 2024, 19:31:14
Autres entêtes
Organisation : Bitwyse
Message-ID : <vbctdk$eneo$1@dont-email.me>
References : 1 2 3 4 5 6 7 8 9 10
User-Agent : Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:123.0) Gecko/20100101 Firefox/123.0
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
--------
-- Les conseils - c'est ce qu'on demandequand on connaît déjà la réponsemais aurait préféré ne pas savoir.