Liste emails

Bonjour,

J'ai une liste de 1200 emails sous Excel.

Comment les rendre actifs en une seule opération au lieu de

les valider un à un.

Merci.

Bonjour

Ici, je réactive les liens de B2 à B25

Attention: Pas de cellule vide

Sub ActiverLienHyperTexte()
Dim Cell As Range
Range("b2:b25").Select
For Each Cell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:="mailto:" & Cell.Value, _
TextToDisplay:=Cell.Value
Next
Range("A7").Select
End Sub

Cordialement

Bonjour,

Merci beaucoup.

Toutefois n'étant pas fort sur Excel, je ne comprends rien à tout cela.

Merci quand même.

Cordialement.

A. Dewavrin

Bonjour

Toutefois n'étant pas fort sur Excel, je ne comprends rien à tout cela.

Avec ce fichier en exemple, c'est plus facile?

Cordialement

Merci beaucoup pour votre aide.

Cordialement,

Arnaud Dewavrin

Encore une petite question, j'ai importé 5000 emails et votre formule

magique s’arrête à 100 emails actifs.

Comment passer à 5000 emails?

Merci

Bonjour

Tu ouvre le fichier.

tu appuies sur les touches Alt et F11 (ou click droit sur le nom de l'onglet et visualiser le code)

Cette manip ouvre l'éditeur VBA

Click sur Module1, le Code de la Macro s'affiche

Dans la ligne

Range("b2:b101").Select

tu remplaces B2:B101 par B2: B10000 ou 100000 ou autre

ou mieux:

tu remplaces la ligne par

Range("B2", Range("B2").End(xlDown)).Select

qui s'adapte au nombre de données

et tu refermes le tout pour tester

C'est fait ici

Cordialement

Bonjour,

Merci ta formule fonctionne à merveille.

Cela me permet d'envoyer directement mon mail enregistré dans les signatures.

Je me pose une autre question par exemple en faisant un clic droit sur l'email, serait-il possible

que ce clik ouvre l'url du mail ?

Je ne veux pas abuser de ton temps.

Merci encore.

Cordialement,

Arnaud