Re
faites comme ceci
-- Allez dans l'éditeur VBA et insérez un module
- Collez le code ci-dessous
Sub Ajouter_liens()
Dim i As Byte, j As Byte
Dim nom As String
Dim col()
col = Array(7, 8, 10, 11, 12, 13, 14, 15, 21, 22, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35)
For j = 0 To UBound(col)
For i = 1 To 12
With ActiveSheet
nom = .Cells(i + 4, 5)
.Hyperlinks.Add Anchor:=.Cells(i + 4, col(j)), Address:="", SubAddress:=nom & "!" & Cells(26, col(j)).Address & ""
End With
Next i
Next j
End Sub
- Sélectionnez la feuille Journal General et une fois sur cette feuille, exécutez le code
Si ok et terminé pensez à cloturer le fil
Cordialement