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

  • Initiateur de la discussion Initiateur de la discussion eric57
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eric57

XLDnaute Occasionnel
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
 

Pièces jointes

Bonjour

Essaye avec ceci
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour