VBA : lien hypertexte sur saisie d'une adresse de site internet dans un textbox

Question

Bonjour,

J'essai d'adapter une petite application que j'ai récupérée pour pour gérer mes nombreux comptes sur Internet.

J'utilise un userform pour ajouter un nouveau site.

Mon problème c'est que après validation, je voudrais que la cellule contenant l'adresse puis m'envoyer sur le site par un simple clik... mais ça n'est pas le cas, car ça n'est pas un lien hypertexte.

LE code lors de la validation est le suivant :

With Sheets("COMPTES_WEB")

    .Range("A" & MaLigneWEB).Value = DateValue(DAT_A)

    .Range("B" & MaLigneWEB).Value = DAT_B

    .Range("C" & MaLigneWEB).Value = DAT_C

    .Range("D" & MaLigneWEB).Value = DAT_D

 ....etc

C'est DAT_D qui contient l'adresse du site.

Si besoin, j'ai mi une copie de l'application épurée ici : 

https://www.cjoint.com/c/JCcrtqOu1fs

Quelqu'un pourrait-il me donner un coup de pouce ?

Merci

Domi

Answer 1

Bonjour,

Remplace :

.Range("D" & MaLigneWEB).Value = DAT_D

par :

.Hyperlinks.Add .Range("D" & MaLigneWEB), DAT_D

Cordialement.

Daniel

Answer 2

Testé et approuvé

Un grand merci ;o)