12000 espaves à supprimer

  • Initiateur de la discussion Initiateur de la discussion Aldo831
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Aldo831

Guest
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
 
Re : 12000 espaves à supprimer

Bonjour

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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
107
Réponses
5
Affichages
186
Réponses
17
Affichages
787
Réponses
3
Affichages
258
Retour