Définition de l'hyperlien VBA

Le lien hypertexte est couramment utilisé avec les sites Web pour naviguer d'une page à une autre ou d'un site Web à un autre sur Internet. De la même manière, nous pouvons également contrôler les mouvements dans la feuille de calcul Excel. Les différentes opérations pouvant être effectuées dans Excel sont:

  • Déplacement vers un emplacement spécifique dans le classeur actuel.
  • Ouvrir différents documents et sélectionner une zone mentionnée dans le document.
  • Navigation vers des pages Web à partir de la feuille de calcul.
  • Envoi d'un e-mail à une adresse définie.

Le lien hypertexte est facile à reconnaître en raison de son changement de couleur, principalement en bleu. Il existe différentes méthodes pour créer un lien hypertexte dans Excel et laisser utiliser VBA.

Comment créer un lien hypertexte dans Excel à l'aide du code VBA?

Vous pouvez ajouter un lien hypertexte à un texte ou une feuille à une autre feuille de calcul dans Excel à l'aide de la propriété d'ajout de lien hypertexte. Le format doit être suivi en spécifiant où l'hyperlien doit être créé et l'URL de navigation, etc.

Format pour l'hyperlien VBA Add

Le format indique les paramètres à fournir pour ajouter un lien hypertexte à une feuille de calcul.

  • Ancre: définit la cellule dans laquelle vous souhaitez créer le lien hypertexte.
  • Adresse: URL vers laquelle la navigation doit se déplacer.
  • (SubAddress): sous- adresse de l'URL.
  • (Info-bulle): valeur du pointeur de souris à afficher lors du placement d'un pointeur de souris.
  • (Texte à afficher): le texte doit être affiché sur la cellule.

Utilisez la propriété Cellule active pour ajouter un lien hypertexte.

Sélectionnez la méthode d'ajout dans la liste

Exemples de création d'hyperliens dans Excel VBA

Vous trouverez ci-dessous les différents exemples de création d'hyperliens dans Excel à l'aide du code VBA.

Vous pouvez télécharger ce modèle VBA Hyperlink Excel ici - VBA Hyperlink Excel Template

Exemple # 1 - Création d'un lien hypertexte de la feuille de calcul vers un site Web

Nous voulons créer un lien hypertexte à partir d'une feuille de calcul nommée sub vers un site Web en utilisant le code VBA dans Excel.

Voici les étapes pour créer un lien hypertexte dans Excel VBA:

Étape 1: créez une fonction nommée hyper pour ajouter le lien hypertexte.

Code:

 Sous privé hyper () End Sub

Étape 2: utilisez l'objet Cellule active pour ouvrir la méthode d'ajout de lien hypertexte.

Code:

 Private Sub hyper () ActiveCell.Hyperlinks.Add (End Sub

Étape 3: fournissez les valeurs des paramètres à la méthode d'ajout de lien hypertexte.

Code:

 Private Sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "c'est un hyperlien", TextToDisplay: = "Formation Excel" End Sub
  • Ancre: nom de la feuille de calcul
  • Adresse: lien hypertexte vers l'endroit où le contrôle doit être navigué, étant donné l'adresse du site Web
  • Info-bulle: le texte du pointeur de la souris
  • TextToDisplay: à quel texte l'hyperlien doit être affecté

Étape 4: Appuyez sur F5 ou sur le bouton Exécuter sous VBE pour exécuter ce code et voir la sortie.

La plage de cellules A1 est sélectionnée et le texte est attribué avec un lien hypertexte, une fois que vous cliquez sur le texte «Formation Excel», il sera redirigé vers le site Web https://www.educba.com/. Lorsque vous déplacez le pointeur de la souris à côté du texte, le texte du pointeur de la souris s'affiche.

Exemple # 2 - Hyperlien pour connecter deux feuilles de calcul

Nous avons deux feuilles de calcul nommées Home et sub . Essayons de créer un lien hypertexte de sub à home en utilisant le code VBA.

Suivez les étapes ci-dessous pour créer un lien hypertexte d'une feuille de calcul à une autre dans le même classeur à l'aide du code VBA.

Étape 1: Créez une fonction, où nous écrirons tous les codes pour effectuer l'action. Écrivez le code pour sélectionner la sous-feuille de calcul en utilisant la méthode de sélection de la feuille de calcul.

Code:

 Sous-feuilles hyper1 () privées ("sub"). Sélectionnez Fin sous

Étant donné que le contrôle se déplace dans la feuille, il est nécessaire de sélectionner la feuille de calcul dans laquelle vous créez le lien hypertexte.

Étape 2: sélectionnez la plage de cellules dans la feuille où le lien hypertexte doit être créé.

Code:

 Private Sub hyper1 () Feuilles de travail ("sub"). Sélectionnez la plage ("A1"). Sélectionnez End Sub

Étape 3: Maintenant, ajoutons le lien hypertexte en utilisant la propriété de cellule active.

Code:

 Private Sub hyper1 () Worksheets ("sub"). Select Range ("A1"). Select ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Cliquez pour déplacer la feuille d'accueil" End Sub

Étant donné que la feuille de calcul est déjà sélectionnée, l'ancre est indiquée comme «Sélection». Le lien hypertexte est spécifié en tant que feuille «Accueil» et plage A1.

Étape 4: Exécutez le sous-code et la feuille s'affichera l'hyperlien comme ci-dessous.

Étape 5: Une fois le texte cliqué, le contrôle sera déplacé vers la feuille « Accueil ». Et la cellule A1 sera sélectionnée.

Exemple # 3 - Hyperlien avec plusieurs feuilles de calcul

Si vous souhaitez créer un lien hypertexte sur plusieurs feuilles de calcul, il est également possible. Dans cet exemple, nous avons plusieurs feuilles dans le même classeur. Différents types de fonctions Excel existent donc dans la feuille de calcul principale «Fonctions». Essayons de créer un lien hypertexte vers la feuille de calcul différente nommée avec différentes fonctions en utilisant le code VBA:

Les feuilles de calcul multiples sont nommées comme ci-dessous avec différents noms de fonction Excel

Comme nous voulons créer un lien hypertexte vers chaque feuille de calcul, il est difficile de répéter le code. Suivez les étapes ci-dessous pour créer un lien hypertexte à l'aide du code VBA dans Excel:

Étape 1: Créez une variable pour gérer facilement la feuille de calcul.

Code:

 Private Sub hyper2 () Dim ws As Worksheet End Sub

Étape 2: Maintenant, nous voulons sélectionner la page principale qui agit comme une page d'index et sélectionner la plage de cellules A1.

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Select Range ("A1"). End End Sub

Étape 3: Pour parcourir plusieurs feuilles de calcul et hyperliens, nous créons un pour chaque boucle. A1 est déjà sélectionné comme cellule active, créant ainsi un lien hypertexte à partir de cela.

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Select Range ("A1"). Select For Each ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub

Étape 4: Fournissez les valeurs des paramètres pour créer un lien hypertexte pour chaque feuille de calcul. Étant donné que le lien hypertexte commence à partir de la cellule active ancre = cellule active, l'adresse est indiquée comme "" .

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Select Range ("A1"). Select For Each ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Sous

Étape 5: Le lien hypertexte est bouclé dans la feuille de calcul, nous devons donc donner la sous-adresse en tant que noms de feuille. Pour obtenir les noms des feuilles, nous pouvons utiliser la variable ws et la plage de cellules comme A1. Le nom de la feuille aura fait référence avec une seule citation. Le nom et la plage de la feuille seront spécifiés et également fermés par un seul devis.

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Select Range ("A1"). Select For Each ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Next ws End Sub

Étape 6: Pour obtenir le lien hypertexte avec le nom de la feuille, TextToDisplay se présente sous la forme ws.Name

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Select Range ("A1"). Select For Each ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Next ws End Sub

Ce code stockera un lien hypertexte pour chaque feuille de calcul dans la même cellule A1.

Étape 7: Pour modifier cette feuille, chaque cellule est différente dans une cellule de la cellule active.

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Select Range ("A1"). Select For Each ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Sélectionnez Next ws End Sub

Étape 8: Exécutez le programme et chaque nom de feuille sera affiché sur la feuille «Fonctions» et en cliquant dessus, le contrôle se déplacera vers la feuille correspondante.

Choses dont il faut se rappeler

  • Propriété Hyperlien de la cellule active utilisée pour créer des hyperliens dans VBA.
  • Hyperlien aide à se déplacer facilement dans le classeur.

Articles recommandés

Ceci est un guide des hyperliens VBA. Ici, nous apprenons à créer des hyperliens dans la feuille de calcul à l'aide du code VBA pour passer rapidement d'une feuille à une autre avec des exemples pratiques et un modèle Excel téléchargeable. Vous pouvez également consulter nos autres articles suggérés -

  1. Introduction aux boucles VBA
  2. Supprimer les hyperliens dans Excel
  3. VBA Break for Loop
  4. Rechercher des liens externes dans Excel

Catégorie:

VBA