pascal21
XLDnaute Barbatruc
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
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
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
Code:
Sub Email()
For Each cel In ActiveSheet.UsedRange
If InStr(cel, "@") Then _
cel.Hyperlinks.Add anchor:=cel, Address:="mailto:" & cel
Next
End Subedit: vous aurez rectifié de vous même, il s'agit d'adresses emails et non de lien hypertexte, en fait
Dernière édition: