Discussion :

[zaza45]

Bonjour

Après multiples recherches et ne connaissant pas VBA, je reste bloquer sur un code qui doit être simple mais je ne trouve pas la solution

J'ai une colonne A avec tous les noms de feuilles du classeur

J'aimerai en col E le lien en correspondance avec le nom de feuille en col A.

Exemple : en A2 j'ai la valeur ETF 1245 qui correspond à une feuille de ce nom et en E2 je voudrais le lien hypertexte pour acceder à la feuille "ETF 1245 "

soit

Code :

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

ActiveSheetHyperlinks.Add Anchor:=selection, Address:="", SubAddress:=" ETF 1245' !A1", TextToDisplay:="ETF 1245'!A1"

Mais je voudrais automatiquement les liens pour toutes les valeurs de la col A

Quelqu'un aurait-il la solution ?

[jfontaine]

Bonjour,

un coup de pouce

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub lien()
 
Dim i As Long
 
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    Range("E" & i).ClearContents
    ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & i), Address:="", SubAddress:=Range("A" & i).Value & "!A1", TextToDisplay:=Range("A" & i).Value
Next i
 
End Sub

[zaza45]

Bonjour Jfontaine

Ton code fonctionne en partie sur la totalité de la colone A mais quand j'active un lien en col E, j'ai un message reférence non valide.

Les liens n'ouvrent pas les feuilles.

[Invité]

Bonjour,

Essayez ceci :

Code :

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

    ActiveSheet.Hyperlinks.Add Anchor:=Range("E2"), Address:="", SubAddress:="'ETF 1245'!A1", TextToDisplay:="ETF 1245"

Cordialement.

[zaza45]

bonjour

Le code fonctionne puisque j'indique la valeur mais il faudrait que les liens soient automatiques sur l'ensemble de la col A.

la solution de Jfontaine correspond mieux mais ne fait pas les liens avec les feuilles

[jfontaine]

a solution de Jfontaine correspond mieux mais ne fait pas les liens avec les feuilles

Je ne vois pas ce qui manque, le lien est bien en colonne E et le clic dessus nous amène en A1 de la feuille correspondant à la cellule en colonne A.

[zaza45]

j'ai rajouté à la fin du code

Code :

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

ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & i), Address:="", SubAddress:=Range("A" & i).Value & "A1", TextToDisplay:=Range("A" & i).Value & "'!A1"

le lien semble correcte
mais la feuille ne s'ouvre toujours pas

[jfontaine]

Les cellules colonnes E on bien le nom de la feuille?