Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel hyperlien

hyperlien

2 réponses
Avatar
ANDBRETON
Bonjour,

comment =E9crire une fonction qui renvoie l'url d'une cellule
du style
result =3D Cells(plg , pcol).Hyperlinks??

Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Récupérer l'adresse d'un lien
Function AdrLien(c As Range)
AdrLien = Mid(c.Hyperlinks(1).Address, 1)
End Function

Récupérer le texte d'un lien
Function TexteLien(c As Range)
TexteLien = Mid(c.Hyperlinks(1).TextToDisplay, 1)
End Function

Récupérer l'adresse email d'un lien
Function email(c As Range)
email = Mid(c.Hyperlinks(1).Address, 8)
End Function

JB
http://boisgontierjacques.free.fr/



On 6 juin, 12:07, ANDBRETON wrote:
Bonjour,

comment écrire une fonction qui renvoie l'url d'une cellule
du style
result = Cells(plg , pcol).Hyperlinks??

Merci


Avatar
ANDBRETON
On 6 juin, 13:26, JB wrote:
Bonjour,

Récupérer l'adresse d'un lien
Function AdrLien(c As Range)
   AdrLien = Mid(c.Hyperlinks(1).Address, 1)
End Function

Récupérer le texte d'un lien
Function TexteLien(c As Range)
  TexteLien = Mid(c.Hyperlinks(1).TextToDisplay, 1)
End Function

Récupérer l'adresse email d'un lien
Function email(c As Range)
   email = Mid(c.Hyperlinks(1).Address, 8)
End Function

JBhttp://boisgontierjacques.free.fr/

On 6 juin, 12:07, ANDBRETON wrote:

> Bonjour,

> comment écrire une fonction qui renvoie l'url d'une cellule
> du style
> result = Cells(plg , pcol).Hyperlinks??

> Merci



super
MERCI