Aujourd'hui nous allons faire un tout petit peu de Visual Basic pour application
En effet, dans un cadre professionnel, j'ai dû écrire ces deux fonctions que je souhaite partager. Mon but est, dans une application Excel, de pouvoir retourner une URL, qui a été copiiée-collée dans une cellule. Cette url se décompose en en deux parties, à savoir et adresse elle-même, ainsi que le champ texte sur l'utilisateur doit cliquer pour ouvrir le navigateur. Nous allons voir comment extraire à la fois URL ainsi que le texte associé.
Dans mon cadre professionnel, j'ai utilisé ces fonctions car j'ai copié-collé d'une page web, un tableau, dans lequel contenait ces Liens. Excel sachant interpréter le contenu d'une URL, il ne me reste plus qu'à bidouiller des fonctions, pour extraire les informations qui m'intéressaient. Voici le code
Function RetourneURL(cellule As Range)
Dim a as String
RetourneURL = Cellule.Hyperlinks(1).Address
End function
Dans un même ordre d'idée, j'avais aussi besoin de récupérer le texte sur lequel l'hyerlien était fait
function RetourneTexteDUneURL (cellule As Range)
Dim A as String
RetourneTexteDUneURL = cellule.Hyperlinks(1).TextToDisplay
End Function
Deux petites fonctions très simples, mais que de temps passé à chercher les propriétés des objets qui vont bien !
Pour info, pour ceux et celles qui l'ignorent, saisissez ces fonction dans un module Excel, elle vous seront accessibles dans les cellule en tapant par exemple :
=RetourneTexteDUneURL(A1) (pour extraire le texte d'un lien situé en A1 de votre feuille)