Rendre adresse active sur une feuille

Bonjour

Voila je rentre des adresses émail dans la colonne "M" a l'aide d'un USF j'aimerai rendre les active soit cliquer dessus pour ouvrir Outlook.

Je vous remercie d'avance

Cordialement

Max

25email.xlsm (21.09 Ko)

Bonjour Amadeus,

Je tiens d'abord à m'excuser tu as entièrement raison et si je peux te demander pourquoi sur ma feuille j'ai deux adresse e-mal donc la première me serre a rien et la seconde qui a bien le lien d'une adresse e-mail a toujours" mailto:aaaaa@free.fr " ?

Merci d'avance

Bonne journée

Max

Bonjour

Sur ton premier sujet, tu demandais juste de transformer ton adresse en L2 en adresse active.

Je n'ai donc pas pris garde à tes macros.

Le Code est à modifier avec

 .Range("L" & Ligne) = Me.TextBox12.Value & "@" & Me.TextBox13.Value
    .Hyperlinks.Add .Cells(Ligne, 12), Address:="mailto:" & TextBox12.Value & "@" & TextBox13.Value   'Email actif sur la feuille

Par contre, comme ton N° de ligne dépends de la ligne de code

    Ligne = .Range("C" & Rows.Count).End(xlUp).Row + 1

Ce n'est qu'en mettant à mesure une saisie en colonne C que tu décaleras les adresses mail.

Cordialement

Re,

Je te remercie beaucoup sa fonctionne nickel...!!

Et excuse moi encore

Bon WE

Max

Rechercher des sujets similaires à "rendre adresse active feuille"