[Résolu] Création d'un lien si la valeur de la cellule correspond à un onglet

[eric57]

Bonsoir le Forum

Je n'ai pas trouvé de solution, aussi je vous soumet mon problème.

J'ai un onglet "References" qui répertorie en colonne "A" la liste de mes onglets existants

Cette liste a été faite manuellement au départ.

=> Les onglets ne sont pas forcement dans l'ordre de la liste
=> La liste peut contenir des valeurs qui n'ont pas d'onglets, et même être vide

Comment faire un lien vers les onglets existants, uniquement pour les cellules contenant le nom de l'onglet, et sans modifier l'ordre de ma colonne "A"

Je vous met en PJ mes essais infructueux ( le début de ma macro fonctionne, c'est la 2eme partie qui me pose soucis)

Merci pour votre aide

 

[Chris401]

Bonjour

Essaye avec ceci

Sub Liens_html()
Dim i As Integer
For i = 3 To Range("A65536").End(xlUp).Row
  If Feuille_Existe(Range("A" & i)) And Range("A" & i) <> "References" Then
  Range("A" & i).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Range("A" & i) & "'" & "!A1" ', TextToDisplay:=Range("A" & i)
    End If
  Next i
End Sub

Function Feuille_Existe(ByVal Nom_Feuille As String) As Boolean
Dim Feuille As Excel.Worksheet
  On Error GoTo Feuille_Absente_Error
    Set Feuille = ActiveWorkbook.Worksheets(Nom_Feuille)
  On Error GoTo 0
  Feuille_Existe = True
Exit Function

Feuille_Absente_Error:
  Feuille_Existe = False
End Function

 

[eric57]

Bonjour Chris401.

Désolé pour ma réponse tardive, j'ai essayé ta proposition hier soir et celle-ci fonctionne parfaitement

Merci pour ton aide