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

 

[razzia]

Re : Aide VB sous excel 2002

snifff je suis tlmt sous pression que je me suis trompé de section, veuillez m'en excuser.... 🙁

 

[gilbert_RGI]

Re : Aide VB sous excel 2002

Bonjour
la fonction SUPPRESPACE
Supprime tous les espaces de texte à l'exception des espaces simples entre les mots. Exécutez la fonction SUPPRESPACE sur le texte provenant d'autres applications et dont l'espacement peut être irrégulier.

Cdlt

RGI

Ps vous êtes sur le forum de 2007

 

[gilbert_RGI]

Re : Aide VB sous excel 2002

En VBA

TRIM

Renvoie une valeur de type Variant (String) contenant une copie d'une chaîne en supprimant les espaces de gauche (LTrim), les espaces de droite (RTrim) ou les deux (Trim).


LTrim(string)

RTrim(string)

Trim(string)

Cdlt

RGI

 

[razzia]

Re : Aide VB sous excel 2002

Merci pour cette réponse et encore dsl pour cette erreur de forum.

Serait il possible de créer une macro qui fasse cela automatiquement? Et si oui, quelle est elle....

Je suis vraiment une moule en VB..... 🙁

 

[gilbert_RGI]

Re : Aide VB sous excel 2002

Merci pour cette réponse et encore dsl pour cette erreur de forum.

Serait il possible de créer une macro qui fasse cela automatiquement? Et si oui, quelle est elle....

Je suis vraiment une moule en VB..... 🙁

si les données sont en colonne A

Sub test2()

derlig = Range("a65536").End(xlUp).Row
For i = 1 To derlig
Cells(i, 2).Value = Trim(Cells(i, 1).Value)
Next
End Sub


Cdlt

RGI

 

[Staple1600]

Re : Aide VB sous excel 2002

Bonjour


A tester
Ici traite la colonne A

Sub mail_ok()
Dim i As Long
For i = [A65536].End(xlUp).Row To 1 Step -1
Range("A" & i).Value = Trim(Range("A" & i).Value)
Next i
End Sub

EDITION: houps, désolé pour la collision, bonjour gilbert RGI

 

[gilbert_RGI]

Re : Aide VB sous excel 2002

EDITION: houps, désolé pour la collision, bonjour gilbert RGI

Pas de problème

 

[razzia]

Re : Aide VB sous excel 2002

Encore merci pour cette aide providencielle. Par contre comment faire pour que la macro ne soit pas bloquée a l'ouverture du ficher? Ou puis je aller pour baisser la sécurité?

 

[razzia]

Re : Aide VB sous excel 2002

bon et bien cela m'efface bien a première vue les espaces mais les adresses ne sont pas cliquables et reste en noir et non en bleu... Une idée peut etre? 🙂

 

[gilbert_RGI]

Re : Aide VB sous excel 2002

bon et bien cela m'efface bien a première vue les espaces mais les adresses ne sont pas cliquables et reste en noir et non en bleu... Une idée peut etre? 🙂

outils / macro /securité

mettre sur sécurité moyenne

 

[gilbert_RGI]

Re : Aide VB sous excel 2002

bon et bien cela m'efface bien a première vue les espaces mais les adresses ne sont pas cliquables et reste en noir et non en bleu... Une idée peut etre? 🙂

ce sont bien des liens hypertextes ?

 

[razzia]

Re : Aide VB sous excel 2002

d'après ce que je vois ce sont de simple adresse textes. Il faudrait qu'elles soit cliquable en lien (j'espère bien m'exprimer lol )

Par contre la formule fonctionne mais à la fin j'ai un "espace pile insuffisant"...

En tt cas je vous remercie pour votre aide qui me sort de la me**** hihihi 😀

 

[razzia]

Re : Aide VB sous excel 2002

existe t il une fonction mailto pour convertir le texte en adresse?

je dois passer de ceci l'adresse en format texte donc noir => aaa@aaa.com par une fonction qui me le fera automatiquement sur toutes mes entrées

d'avance merci 🙂

 

[gilbert_RGI]

Re : Aide VB sous excel 2002

avec ça peut-être

erreur

oups celui-ci fonctionne mieux ;-)))

Sub Macro1()
Dim i As Long
Sheets(1).Select
For i = 1 To [A65536].End(xlUp).Row
Cells(i, 1).Activate
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & Cells(i, 1).Value, TextToDisplay:= _
Cells(i, 1).Value
Next i
End Sub