XL 2021 Créer liens hypertexte automatiquement

JMC à dit:

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)

Cliquez pour agrandir...

JMC à dit:

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

Cliquez pour agrandir...

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

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

TooFatBoy à dit:

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 ?

Cliquez pour agrandir...

TooFatBoy à dit:

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

Cliquez pour agrandir...