activer les liens...

[k-mikaze]

Bonjour,

je viens de "copier-coller" une liste de 1 500 adresses mail...
est-il possible de tous les activer en une seule fois??


dites moi OUI svp!!

merki

k-mikaze

 

[Spitnolan08]

Re : activer les liens...

Bonjour,

Et bien alors pour te faire plaisir on va dire oui...


Par macro :

Sub ActiveLiens()
on error resume next
For i = 1 To 1500
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
        "mailto:" & Cells(i, 1).Value, TextToDisplay:=Cells(i, 1).Value
Next
End Sub

Cordialement

 

[GIBI]

Re : activer les liens...

Salut,

il y a plus bestial :

1. Modifier la 1iere adresse (F2 puis enter) ==> elle se formate en adresse
2. Recopier le format sur le reste avec le pinceau par exemple

GIBI

 

[k-mikaze]

Re : activer les liens...

merci pour les conseils!!!!


bonne fin de journée.

a bientôt surement!!

k-mikaze

 

[k-mikaze]

Re : activer les liens...

occupé sur autre chose, je viens de me rendre compte que la solution du "F2 enter" et du pinceau, bien plus simple pour moi(^^) ne rendait pas les liens actifs...!

normal ou pas normal??


k-mikaze