crer unlien hypertexte (email) automatiquement

[pascal21]

bonjour dans mon classeur, je récupère dans les cellules D5 et D2 le contenu d' autres cellules (fonction recherchev)
il s'agit d'adresses email
ça recopie bien l'ensemble de la cellule mais pas le "format" lien hypertexte
autrement dit le lien copié n'est pas actif
j'ai vu sur le forum, qu'il existait des codes qui permettent de rendre le lien actif
mais je ne suis pas arrivé à l'adapter à mon classeur
par exemple ici avec le code donné par JOB 75, que je salue au passage

Sub Email()
For Each cel In ActiveSheet.UsedRange
  If InStr(cel, "@") Then _
    cel.Hyperlinks.Add anchor:=cel, Address:="mailto:" & cel
Next
End Sub

merci de votre aide
edit: vous aurez rectifié de vous même, il s'agit d'adresses emails et non de lien hypertexte, en fait

 

[tototiti2008]

Re : crer unlien hypertexte (email) automatiquement

Bonjour pascal21,

Chez moi le code de job_75 fonctionne parfaitement...
Qu'est-ce qui cloche chez toi ?

Edit : trés en retard, meilleurs voeux à toi Job_75, meilleurs voeux pascal21

 

[job75]

Re : crer unlien hypertexte (email) automatiquement

Bonjour Pascal,

La fonction LIEN_HYPERTEXTE crée ce lien, voir l'aide Excel.

Donc remplacer les formules =RECHERCHEV(...;0) par :

=LIEN_HYPERTEXTE("mailto:"&RECHERCHEV(...;0);RECHERCHEV(...;0))

Edit : salut tototiti, on ne s'est pas croisé depuis longtemps, meilleurs voeux.

A+

 

[pascal21]

Re : crer unlien hypertexte (email) automatiquement

bonjour à tous
merci job
je ne pensais pas que l'on pouvais imbriquer lien + la formule