Discussion :

[Cuisinier66]

Bonjour,

j'aimerai créer un lien hypertexte automatique sur chacune de mes fiches.La manipulation de les créer un par un est trop longue.Les feuilles portent le même nom que les cellules.Merci a tous si vous avez une solution.

[joe.levrai]

Bonjour,

si les noms sont bien strictement identiques aux noms des feuilles

sélectionne la plage avec tes noms, t'embête pas à retirer les colonnes vides

lance ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Hyper()
Dim Cell As Range
 
For Each Cell In Selection.Cells
    If Cell.Value <> "" Then ActiveSheet.Hyperlinks.Add anchor:=Cell, Address:="", SubAddress:=Cell.Value & "!A1", TextToDisplay:=Cell.Value
Next Cell
 
End Sub

[Cuisinier66]

Génial ! et Merci beaucoup