Créer fonction Visual basic pour valider si cellule contient un lien [Résolu]

Signaler
Messages postés
226
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2020
-
Messages postés
226
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2020
-
Bonjour,
Je cherche quelqu'un pour m'aider à créer un fonction visual basic qui renverrait Vrai si une cellule contient un lien et Faux si la cellule n'en contient pas.

Je ne suis pas spécialisé VisualBasic et ne sait pas comment écrire cette fonction.

Si vous pouvez m'aider ce serait sympa !!!

Merci par avance


Configuration: Windows / Firefox 70.0

1 réponse

Messages postés
23428
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2020
6 293
Bonjour,

peux-tu préciser ta question stp ?
Une cellule peut contenir un lien actif (souligné bleu) ou contenir une chaine qui pourrait être un lien mais qui n'est pas actif.
Un lien peut être une page internet, un mailto, vers une cellule, etc
eric

Edit : pour le cas 1 :
Function estLien(c As Range) As Boolean
    estLien = c.Hyperlinks.Count > 0
End Function

J'ai fait un seul test avec une lien internet, à approfondir éventuellement selon ce que tu as besoin exactement.

Pour le cas 2 il faudrait préciser les conditions à remplir pour que tu considères le lien comme valide

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Messages postés
226
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2020
1
Cellule Qui contient un lien actif
Messages postés
23428
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2020
6 293
tu as testé la fonction ?
Et j'ai complété mon post au fil des essais que je faisais...
Messages postés
226
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2020
1
Super ça fonctionne comme je le souhaitais,
Merci pour votre aide