Trouver une macro

Question

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.

enark78 · Answer

tu n'as pas de boucle pour qu'elle se répète ?

pdeharbes · Answer

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"

Serenity75 · Answer

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 ?

pdeharbes · Answer

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

Trouver une macro

4 réponses

Votre réponse

Discussions similaires

Newsletters