Comment créer des hyperliens cliquables dans un tableau croisé dynamique ?

Vous pouvez facilement cliquer sur un lien hypertexte pour accéder à sa page web dans une feuille de calcul, mais si vous créez un tableau croisé dynamique contenant des liens hypertexte, ces derniers ne seront pas cliquables. Avez-vous des idées pour résoudre ce problème dans Excel ?

Créer des hyperliens cliquables dans un tableau croisé dynamique avec du code VBA

Créer des hyperliens cliquables dans un tableau croisé dynamique avec du code VBA

Par défaut, les liens hypertexte ne fonctionnent pas dans un tableau croisé dynamique. Heureusement, vous pouvez créer un code VBA pour rendre les liens hypertexte cliquables dans le tableau croisé dynamique.

1. Maintenez enfoncées les touches ALT + F11, et cela ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Ensuite, choisissez votre feuille de calcul utilisée dans le volet Explorateur de projets à gauche, double-cliquez dessus pour ouvrir un Module, puis copiez et collez le code VBA suivant dans le Module vide :

Code VBA : Créer des hyperliens cliquables dans un tableau croisé dynamique

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update 20140814
If Target.Cells.Count <> 1 Then Exit Sub
On Error Resume Next
Application.ActiveWorkbook.FollowHyperlink Address:=CStr(Target.Value), NewWindow:=True
End Sub

3. Ensuite, enregistrez et fermez ce code, revenez à votre feuille de calcul, et maintenant, lorsque vous cliquez sur le lien hypertexte dans votre tableau croisé dynamique, le lien sera activé et redirigera vers sa page web.

Remarque : Ce code n'est valable que pour les liens de pages web commençant par Http://.