Re: Hyperliens d'Excel sous Win 11

Liste des GroupesRevenir à fco ms-windows 
Sujet : Re: Hyperliens d'Excel sous Win 11
De : bitwyse (at) *nospam* le{TIRET}maquis.net (CriCri)
Groupes : fr.comp.os.ms-windows
Date : 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 demande
quand on connaît déjà la réponse
mais aurait préféré ne pas savoir.

Date Sujet#  Auteur
2 Sep 24 * Hyperliens d'Excel sous Win 1124CriCri
2 Sep 24 `* Re: Hyperliens d'Excel sous Win 1123DuboisP
2 Sep 24  `* Re: Hyperliens d'Excel sous Win 1122CriCri
3 Sep 24   `* Re: Hyperliens d'Excel sous Win 1121DuboisP
3 Sep 24    `* Re: Hyperliens d'Excel sous Win 1120CriCri
3 Sep 24     `* Re: Hyperliens d'Excel sous Win 1119DuboisP
4 Sep 24      `* Re: Hyperliens d'Excel sous Win 1118CriCri
4 Sep 24       `* Re: Hyperliens d'Excel sous Win 1117Ray_Net
5 Sep 24        `* Re: Hyperliens d'Excel sous Win 1116CriCri
5 Sep 24         `* Re: Hyperliens d'Excel sous Win 1115DuboisP
5 Sep 24          `* Re: Hyperliens d'Excel sous Win 1114CriCri
5 Sep 24           +* Re: Hyperliens d'Excel sous Win 1112Ray_Net
6 Sep 24           i`* Re: Hyperliens d'Excel sous Win 1111CriCri
6 Sep 24           i `* Re: Hyperliens d'Excel sous Win 1110DuboisP
6 Sep 24           i  `* Re: Hyperliens d'Excel sous Win 119CriCri
6 Sep 24           i   `* Re: Hyperliens d'Excel sous Win 118DuboisP
6 Sep 24           i    +- Re: Hyperliens d'Excel sous Win 111CriCri
7 Sep 24           i    `* Re: Hyperliens d'Excel sous Win 116CriCri
9 Sep 24           i     `* Re: Hyperliens d'Excel sous Win 115DuboisP
9 Sep 24           i      `* Re: Hyperliens d'Excel sous Win 114Ray_Net
10 Sep 24           i       +* Re: Hyperliens d'Excel sous Win 112DuboisP
10 Sep 24           i       i`- Re: Hyperliens d'Excel sous Win 111Ray_Net
12 Sep 24           i       `- Re: Hyperliens d'Excel sous Win 111CriCri
6 Sep 24           `- Re: Hyperliens d'Excel sous Win 111DuboisP

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal