Transformer une adresse mail au format texte en lien hypertexte

[ivan27]

Re bonsoir le forum,

Je vous communique en pièce jointe un classeur dans lequel les champs de la feuille "BASE" sont formatés en VBA à chaque modification.
Je n'arrive pas formater le champ mail.
Chacune de mes tentatives se soldent par une boucle que je dois échapper et je ne trouve pas mon erreur...
Merci d'avance pour votre aide.
Bien cordialement et bon match

Ivan

 

[DoubleZero]

Re : Transformer une adresse mail au format texte en lien hypertexte

Bonjour, ivan27, le Forum,

Peut-être ainsi :

Sub Mail_adresse_activer()
    Dim i As Long
    Sheets("BASE").Activate
    For i = 2 To Cells(Rows.Count, 12).End(xlUp).Row
        If Cells(i, 12) <> "" Then Cells(i, 12).Hyperlinks.Add Cells(i, 12), "mailto:" & Cells(i, 12)
    Next
End Sub

A bientôt 🙂

 

[Theze]

Re : Transformer une adresse mail au format texte en lien hypertexte

Bonjour,

Tu as oublié de rajouter "Mailto:" dans l'ajout de lien :

k.Hyperlinks.Add Anchor:=k, Address:="Mailto:" & k.Value, TextToDisplay:=k.Value

Hervé.

 

[ivan27]

Re : Transformer une adresse mail au format texte en lien hypertexte

Bonjour DoubleZero, Theze, le forum,

J'ai testé vos 2 propositions.
DoubleZero, lorsque un hyperlink est déjà présent dans la cellule, le texte se transforme en des répétitions du mot "mailto".
Theze, j'ai corrigé selon ta proposition.
Dans les 2 cas, la boucle ne s'arrête pas, je suis obligé d'échapper pour sortir de la procédure.
Bien cordialement et bonne journée.

Ivan

 

[DoubleZero]

Re : Transformer une adresse mail au format texte en lien hypertexte

Re-bonjour, bonjour, Theze,

... lorsque un hyperlink est déjà présent dans la cellule, le texte se transforme en des répétitions du mot "mailto"...

Ajout d'une condition dans le code suivant :

Sub Mail_adresse_activer()
    Dim i As Long
    Sheets("BASE").Activate
    For i = 2 To Cells(Rows.Count, 12).End(xlUp).Row
        If Cells(i, 12) <> "" And Cells(i, 12).Hyperlinks.Count = 0 Then Cells(i, 12).Hyperlinks.Add Cells(i, 12), "mailto:" & Cells(i, 12)
    Next
End Sub

A bientôt 🙂

 

[ivan27]

Re : Transformer une adresse mail au format texte en lien hypertexte

Bonjour Theze, DoubleZero, le forum,

Merci pour vos réponses.
Pour info, j'ai réglé le problème de boucle dont je n'arrivais pas à sortir, en encadrant ma procédure avec Application.EnableEvents. C'est l'évènement Change qui posait problème.

Application.EnableEvents = False
...
Application.EnableEvents = True

Bien cordialement,
Ivan