Comment créer un hyperlien pour un bouton de commande vers une adresse URL dans Excel ?

Dans Excel, il est peut-être facile pour nous de créer un hyperlien pour un bouton de forme, mais avez-vous déjà essayé de créer un hyperlien vers un bouton de commande ? Lorsque vous cliquez sur le bouton de commande, il vous dirigera vers le site web spécifié dont vous avez besoin. Dans cet article, je vais vous présenter quelques astuces rapides et faciles pour accomplir cette tâche dans Excel.

Créer un hyperlien pour un bouton de commande vers une adresse URL avec du code VBA

Créer un hyperlien pour un bouton de commande vers une adresse URL avec du code VBA

Pour créer un hyperlien pour un bouton de commande, suivez les étapes ci-dessous :

1. Cliquez sur Développeur > Insérer > Bouton de commande (Contrôle ActiveX), puis dessinez un bouton comme indiqué dans la capture d'écran suivante :

2. Après avoir inséré le bouton de commande, faites un clic droit dessus, puis choisissez Propriétés dans le menu contextuel. Dans la boîte de dialogue Propriétés, cliquez sur l'onglet Catégorisé, et entrez l'adresse complète du site web que vous souhaitez lier dans la zone de texte Libellé, voir capture d'écran :

3. Ensuite, fermez la boîte de dialogue, faites un clic droit sur l'onglet de la feuille contenant le bouton de commande, et sélectionnez Afficher le code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic for Applications ouverte, copiez et collez le code suivant dans le Module vide :

Code VBA : hyperlien vers un bouton de commande :

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub

Remarque : Dans le code ci-dessus, CommandButton1 est le nom du bouton de commande créé, veuillez le modifier selon vos besoins.

4. Ensuite, enregistrez le code et quittez le Mode Création. Maintenant, lorsque vous cliquez sur le bouton de commande, il vous dirigera vers la page web spécifique.

Astuce : Si le libellé du bouton de commande n'est pas l'adresse URL, mais simplement une chaîne de texte comme indiqué dans la capture d'écran suivante :

Vous pouvez appliquer le code VBA ci-dessous pour y parvenir :

Code VBA : hyperlien vers un bouton de commande :

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub

Remarque : Dans le code ci-dessus, CommandButton1 est le nom du bouton de commande créé, et vous devez remplacer l'adresse du site web https://www.extendoffice.com par votre propre adresse URL.