[xl - 2003] rendre une colonne de mail cliquable [Résolu]

[rufian]

Bonjour à tous et toutes,
votre aide bien venue pour ceci svp
j'ai une colonne (G) qui contient des adresses mail (+- 3000) ex : 123@hotmail.com, seulement ces liens ne sont pas cliquable.
Je souhaiterai avec votre aide pouvoir transformer ces adresses en lien, quand je cliquerai sur ce lien, il devrait pouvoir ouvrir ma messagerie, manuellement aucun soucis pour le faire mais + de 3000 adresses à refaire

si quelqu'un à un code vba ?
je précise je suis sous excel 2003
merci à vous

[bbil]

si tu sais le faire manuellement... démarre l'enregistreur de macro .. fait le pour une adresse .. et ensuite observe le code générer afin de l'adapter pour qu'il puisse s'exécuter sur toutes tes cellules ..

[rufian]

hello bbil
merci pour la réponse, je n'y avais même pas pensé
si quelqu'un peut apporter les modifs pour le faire fonctionner
merci d'avance

voici mon code vba

Code :

1
2
3
4
 For Each c In Sheets("export-donnees").Range("g1:g" &   Range("g65356").End(xlUp).Row)
    Range.Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Mailto:" & c.Value, TextToDisplay:=c.Value
 Next c

[rufian]

bonsoir,
j'ai trouvé cette façon de faire, ne sait si cela est bien "propre" mais cela fonctionne
serai curieux de connaître la bonne façon d'opérer
merci de me la renseigner
bien à tous et toutes (ne soyons pas matcho)

Code :

1
2
3
4
5
6
7
Dim i As Integer
 i = 2
 For Each c In Sheets("export-donnees").Range("g2:g" & Range("g65356").End(xlUp).Row)
    Range("g" & i).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Mailto:" & c.Value, TextToDisplay:=c.Value
 i = i + 1
 Next c

[bbil]

Il ne faut éviter d'utiliser les .select, .activeSheet... essai :

Code :

1
2
3
4
5
6
Sub Boucle()
Dim c As Range
For Each c In ThisWorkbook.Sheets("export-donnees").Range("g1:g" & Range("g65356").End(xlUp).Row)
    ThisWorkbook.Sheets("export-donnees").Hyperlinks.Add Anchor:=c, Address:="Mailto:" & c.Value, TextToDisplay:=c.Value
 Next c
End Sub

[rufian]

Merci pour cette excellente réponse, j'en prend bonne note