12000 espaves à supprimer

[Aldo831]

Bonjour à toutes et à tous,

J'ai reçu 12000 adresses avec chacune un espaces devant comment faire pour le supprimer?
Chaque adresse est dans une cellule propre
Merci d'avance pour votre aide
Excelement votre
Aldo

 

[MILO22]

Re : 12000 espaves à supprimer

Salut Aldo 831,

As-tu essayé la formule (SUPPRESPACE) qui efface les espaces, sauf les espaces simples entre les mots ?

Cordialement

MILO

 

[Aldo831]

Re : 12000 espaves à supprimer

Milo bonjour

J'ai bien essayé mais ça ne marche pas ou je n'y arrive pas !!!
là est mon problème

Aldo

 

[Staple1600]

Re : 12000 espaves à supprimer

Bonjour

Dans quelle colonne sont tes adresses?
Voici trois macros

Sub sup_espace()
'traite la colonne A
Dim c As Range
For Each c In Range("A1:A" & [A65536].End(xlUp).Row)
c = Application.Trim(c)
Next
End Sub

Sub sup_espace_II()
'traite toutes les cellules non vides de la feuille active
Dim c As Range
For Each c In ActiveSheet.UsedRange
If Not IsEmpty(c) Then
c = Application.Trim(c)
End If
Next
End Sub

Une variante

Sub sup_espace_III()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c Like "*@*" Then
c = Application.Trim(c)
End If
Next
End Sub

Pour insérer une de ces macros
Dans Ton classeur, Faire ALT+F11, Insertion/Module
Copier dans Module1 la macro de ton choix
Puis faire F5
Pour retourner dans Excel, ALT+Q

 

[MILO22]

Re : 12000 espaves à supprimer

ReSalut Aldo et bonjour Staple 1600,

ci-joint un tout petit fichier explicatif en espérant qu'il réponde à tes attentes.

Cordialement

Milo

 

[Aldo831]

Merci à vous deux

Merci à vous deux
ça à très bien fonctionné
vous m'avez enlevé une sacrée épine du pied !!!
Excelement votre
Aldo