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
Dans quelle colonne sont tes adresses?
Voici trois macros
Code:
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
Code:
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
Code:
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