Aide VB sous excel 2002

[razzia]

Bonjour.

Suite à un problème sur lequel je bloque, j'ai parcouru ce forum à la recherche d'une aide.

j'ai un très gros soucis qu'il faut que je règle au plus vite. Je suis infographiste et la programmation VB dépasse mes compétences.


J'ai un fichier .xls
Dans ce fichier des adresses mail avec malheureusement un espace avant chaque adresse (donc l'adresse n'est pas reconnue). Chaque adresse mail se trouve dans la colonne A et passe à la ligne après chaque adresse.
Impossible de se servir de ce fichier pour les mailing de l'entreprise.

Est il possible et comment créer une fonction qui va supprimer l'espace avant chaque adresse. Sachant qu'il y en à plus de 500.

d'avance merci pour votre réponse.

Sincères salutations

Razzia

 

[Staple1600]

Re : Aide VB sous excel 2002

Re


Testé sous XL 2000 (sur 500 lignes , colonne A - pas de soucis)
Cette macro supprime les espaces puis active les liens

Sub ActiveLiens_II()
Dim i As Long
Dim r As Range
On Error Resume Next
Application.ScreenUpdating = False
For i = [A65536].End(xlUp).Row To 1 Step -1
Set r = Range("A" & i)
With r
    .Value = Trim(r.Value)
    .Hyperlinks.Add Anchor:=r, Address:= _
    "mailto:" & r.Value, TextToDisplay:=r.Value
End With
Next i
Application.ScreenUpdating = True
Set r=Nothing
End Sub

La différence avec celle de Gilbert RGI, c'est qu'il n'y pas de séléction des cellules.

La macro originale est issue de ce post:
Lien supprimé

 

[gilbert_RGI]

Re : Aide VB sous excel 2002

La différence avec celle de Gilbert RGI, c'est qu'il n'y pas de séléction des cellules.

bien vu 😉

 

[razzia]

Re : Aide VB sous excel 2002

vous êtes vraiment des experts 😀

je vous remercie pour cette aide précieuse et votre patience... 😀