Trouver une macro

Fermé
Serenity75 Messages postés 14 Date d'inscription vendredi 29 janvier 2010 Statut Membre Dernière intervention 11 février 2010 - 11 févr. 2010 à 10:22
pdeharbes Messages postés 192 Date d'inscription jeudi 11 février 2010 Statut Membre Dernière intervention 7 avril 2012 - 11 févr. 2010 à 17:55
Bonjour,

J'aimerai créer une macro qui ce répéte pour retirer le texte afficher pour aller dans un lien hypertexte. De la ligne 2 à 536.

Ma macro qui ne marche pas pour le moment est :

Selection.Hyperlinks(1).TextToDisplay = "mailto:eca87@a.com"
Range("A7").Select
Selection.Hyperlinks(1).TextToDisplay = "mailto:m@cabinet-.fr"
Range("A8").Select
End Sub

Merci d'avance.
A voir également:

4 réponses

enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
11 févr. 2010 à 10:40
tu n'as pas de boucle pour qu'elle se répète ?
0
pdeharbes Messages postés 192 Date d'inscription jeudi 11 février 2010 Statut Membre Dernière intervention 7 avril 2012 31
11 févr. 2010 à 10:47
Si le but est d'envoyer un email en cliquant voci une solution :
Range("A7").Select
ActiveCell.Hyperlinks.Add Anchor:=Selection, _
Address:="mailto:amoi@hotmail.fr?subject=Coucou", _
ScreenTip:="Envoyer un email", _
TextToDisplay:="Test"
0
Serenity75 Messages postés 14 Date d'inscription vendredi 29 janvier 2010 Statut Membre Dernière intervention 11 février 2010
11 févr. 2010 à 10:53
Non c'est pas çà, je veux retirer le texte afficher

Exemple : "Envoyer un mail" je clic dessus et la je vais direct sur l'adresse dans ma boite outlook.
Mais moi je veux donc garder ce lien mais que au lien de "Envoyer un mail" dans mon tableau Excel sa me marque le mail de la personne ex : lomote@lmrg.fr

Et je voudrai faire cette action : modifier lien hyper texte ---> effacer le texte afficher ---> Ok
de la ligne 2 à 536

C'est un peu plus clair ?
0
pdeharbes Messages postés 192 Date d'inscription jeudi 11 février 2010 Statut Membre Dernière intervention 7 avril 2012 31
11 févr. 2010 à 17:55
Exemple:
A1=toto@hotmail.fr
La macro lit A1 puis copie la valeur dans B1 avec la valeur : 'toto@hotmail.fr
Ensuite elle efface A1 puis recopie B1 dans A1 et efface B1
0