XL 2021 Créer liens hypertexte automatiquement

[JMC]

Bonjour à toutes et tous.
job75, wDoog66 et TooFatboy m'ont déjà bien aidé dans mes demandes de formules pour pas mal de choses.
Je leur en ai fait voir, mais ils ont toujours trouvé une solution.
Là, j'en avais déjà fait un sujet mais qui ne fonctionnait pas comme je le voulais (https://excel-downloads.com/threads...eurs-colonnes-dans-un-tableau-excel.20084867/) ,mais j'ai dù modifier les tableaux (notamment pour des virements sur le compte) dans les mois de mon fichier financier d 'association.
Ma nouvelle demande, est une formule pour créer des liens hypertexte automatiquement, afin de m'éviter de les faire manuellement dans "JOURNAL GENERAL" du classeur.
Je vous joints le ficher
Encore merci pour cette aide

 

[TooFatBoy]

Bonjour,

Oui effectivement j'ai omis de préciser (ce qui était évident pour moi lol)
Liens à mettre dans les cellules sur fond bleue (lignes 5 à 16 dans les colonnes G et H, J à O et U et V et X à AI)

Dans ton fichier de #1, des liens hypertexte ne servent à rien puisque, apparemment, quand on fait un double-clic on atterrit déjà sur la bonne cellule de la bonne feuille.

 

[JMC]

Oui, mais pas lorsqu'on clique par exemple sur cotisations en janvier ou sur une autre cellule comprise entre janvier et décembre (de G5 et O16).
Les autres liens, je les avais fait avant. Ce que je voulais éviter c'est de créer les liens un par un, d'où ma demande de pouvoir créer des liens automatiques dans un VBA

 

[TooFatBoy]

Oui, mais pas lorsqu'on clique par exemple sur cotisations en janvier ou sur une autre cellule comprise entre janvier et décembre (de G5 et O16).
Les autres liens, je les avais fait avant. Ce que je voulais éviter c'est de créer les liens un par un, d'où ma demande de pouvoir créer des liens automatiques dans un VBA

C'est normal : la macro est prévue pour ne fonctionner que pour les deux plages I5:N16 et W5:AH16 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("I5:N16,W5:AH16")) Is Nothing Then
        Cancel = True
        Application.Goto Sheets(Cells(Target.Row, 5).Value).Cells(26, Target.Column)
    End If
End Sub

Essaye d'adapter les deux plages aux plages que tu souhaites, par exemple :

Intersect(Target, Range("G5:O16,U5:AI16"))

 

[TooFatBoy]

Est-ce normal qu'en G5, G16 et H16 tu fasses référence à la ligne 28 et non 26 comme dans les autres cellules ?

 

[JMC]

Est-ce normal qu'en G5, G16 et H16 tu fasses référence à la ligne 28 et non 26 comme dans les autres cellules ?

Bonsoir,
Erreur de ma part.... rectifié merci

 

[TooFatBoy]

OK. et le classeur de #19 convient-il ou pas ?

 

[JMC]

OK. et le classeur de #19 convient-il ou pas ?

Le double click fonctionne très bien. Mais la cellule n'est pas colorisée, comme lorsque que je clique sur J17 à O17 et pareil X17 à AI17.
Je verrai cela demain je dois me lever tôt demain.
Encore merci