Supprimer les espaces dans les cellules Excel – espaces avant, espaces après, espaces supplémentaires ou tous les espaces

Parfois, lorsque des données ont été copiées et collées à partir d'autres applications dans une feuille de calcul, des problèmes peuvent survenir si des espaces supplémentaires sont inconsciemment inclus avec les données. Par exemple, lors de l'addition de deux cellules contenant des nombres avec des espaces avant, le résultat sera 0 au lieu du bon résultat ; ou encore obtenir un mauvais résultat en comparant deux cellules ayant le même contenu mais l'une d'entre elles contenant des espaces avant ou après. Comment supprimer ces espaces ? Ce tutoriel présentera plusieurs méthodes pour vous aider.

Supprimer les espaces supplémentaires, y compris les espaces avant, les espaces après et les espaces intermédiaires excessifs des cellules

Supposons que vous ayez une liste de colonnes de cellules contenant des espaces avant, des espaces après et des espaces intermédiaires excessifs. Pour supprimer tous ces espaces supplémentaires des cellules, la fonction TRIM peut vous aider.

Sélectionnez une cellule vide, entrez =TRIM(B3) dedans et appuyez sur la touche Entrée . Puis faites glisser son Poignée de remplissage vers le bas pour appliquer la formule aux autres cellules. Voir capture d'écran :
Remarque: B3 est la cellule contenant le texte dont vous souhaitez supprimer les espaces.

Maintenant, tous les espaces supplémentaires, y compris les espaces avant, les espaces après et les espaces intermédiaires excessifs, sont supprimés des cellules spécifiées.

Remarque : Cette opération doit être effectuée dans une nouvelle colonne. Après avoir supprimé tous les espaces supplémentaires, vous devez remplacer les données d'origine par les données ajustées en appuyant sur Ctrl + C, sélectionner la plage de données d'origine et faire un clic droit pour sélectionner Valeurs sous la section Options de collage.

Supprimer uniquement les espaces avant des cellules

Dans certains cas, vous devrez peut-être supprimer uniquement les espaces avant tout en conservant tous les espaces intermédiaires dans les cellules comme le montre la capture d'écran ci-dessous. Cette section présente une autre formule et un code VBA pour résoudre ce problème.

Utilisez la fonction MID pour supprimer uniquement les espaces avant

Sélectionnez une cellule vide (ici je sélectionne la cellule D3), copiez la formule ci-dessous dedans et appuyez sur la touche Entrée. Ensuite, faites glisser la Poignée de remplissage vers le bas pour appliquer la formule aux autres cellules.

=MID(B3,FIND(MID(TRIM(B3),1,1),B3),LEN(B3))

Dans cette formule, B3 est la cellule contenant le texte dont vous souhaitez supprimer les espaces avant.

Remarque : Cette opération doit être effectuée dans une nouvelle colonne. Après avoir supprimé tous les espaces avant, vous devez remplacer les données d'origine par les données ajustées sans formules.

Utiliser le code VBA pour supprimer uniquement les espaces avant

1. Ouvrez la feuille de calcul contenant les cellules dont vous voulez supprimer les espaces avant, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis copiez le code VBA ci-dessous dans la fenêtre Module.

Sub RemoveLeadingSpaces()
'Updateby20190612
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.LTrim(Rng.Value)
Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue Kutools pour Excel apparaît, veuillez sélectionner les cellules continues dont vous voulez supprimer les espaces avant, puis cliquez sur le bouton OK.

Vous pouvez maintenant voir que seuls les espaces avant ont été supprimés des cellules sélectionnées.

Supprimer uniquement les espaces après des cellules

1. Ouvrez la feuille de calcul contenant les cellules dont vous voulez supprimer les espaces avant, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis copiez le code VBA ci-dessous dans la fenêtre Module.

Sub RemoveTrailingSpaces()
'Updateby20190612
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.RTrim(Rng.Value)
Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue Kutools pour Excel apparaît, veuillez sélectionner les cellules continues dont vous voulez supprimer les espaces après, puis cliquez sur le bouton OK. Vous pouvez maintenant voir que seuls les espaces après ont été supprimés des cellules sélectionnées.

Supprimer tous les espaces des cellules

Si vous souhaitez éliminer tous les espaces dans des cellules spécifiques, les méthodes de cette section peuvent vous aider.

Utilisez la fonction SUBSTITUTE pour supprimer tous les espaces des cellules

=SUBSTITUTE(texte, ancien_texte, nouveau_texte, [numéro_instance])

Sélectionnez une cellule vide, copiez la formule ci-dessous dedans et appuyez sur la touche Entrée. Ensuite, faites glisser la Poignée de remplissage vers le bas pour appliquer la formule aux autres cellules.

=SUBSTITUTE(B3," ","")

Astuce: Dans cette formule, B3 est la cellule contenant le texte dont vous souhaitez supprimer tous les espaces;
         " " (un espace entouré de guillemets doubles) représente ici les espaces que vous souhaitez supprimer;
         "" ici signifie que vous allez remplacer tous les espaces par rien.

Ensuite, vous pouvez voir que tous les espaces dans les cellules spécifiques sont immédiatement supprimés.

Remarque : Cette opération doit être effectuée dans une nouvelle colonne. Après avoir supprimé tous les espaces, vous devez remplacer les données d'origine par les données ajustées sans formules.

Utiliser la fonction Rechercher & Remplacer pour supprimer tous les espaces des cellules

Outre la fonction SUBSTITUTE mentionnée ci-dessus, la fonctionnalité Rechercher & Remplacer peut également aider à supprimer tous les espaces des cellules.

1. Sélectionnez les cellules contenant les espaces que vous souhaitez supprimer, appuyez sur les touches Ctrl + H pour ouvrir la boîte de dialogue Rechercher et remplacer.

2. Dans la boîte de dialogue Rechercher et remplacer et sous l'onglet Remplacer, tapez un espace dans la zone de texte Rechercher quoi, laissez la zone de texte Remplacer par vide, puis cliquez sur le bouton Remplacer tout.

Supprimez facilement les espaces avant, les espaces après, les espaces excédentaires et tous les espaces des cellules avec Kutools

1. Sélectionnez une plage ou plusieurs plages avec les cellules dont vous souhaitez supprimer les espaces, cliquez sur Kutools > Texte > Supprimer les espaces. Voir capture d'écran :

2. Vous pouvez voir qu'il y a 5 options dans la boîte de dialogue Supprimer les espaces :

• Pour ne supprimer que les espaces avant, sélectionnez l'option Espaces avant;
• Pour ne supprimer que les espaces après, sélectionnez l'option Espaces après;
• Pour supprimer simultanément les espaces avant et les espaces après, sélectionnez l'option Espaces avant & après;
• Pour supprimer tous les espaces excédentaires (y compris les espaces avant, les espaces après, les espaces intermédiaires excessifs), sélectionnez l'option Tous les espaces excédentaires;
• Pour supprimer tous les espaces, sélectionnez l'option Tous les espaces.

Ensuite, cliquez sur le bouton OK pour commencer l'opération.

Autres cas pratiques liés aux espaces dans Excel

Outre la suppression des espaces des cellules, avez-vous déjà été confronté à des situations où il fallait compter, ajouter des espaces ou remplacer les espaces par d'autres caractères dans les cellules ? La recommandation ci-dessous pourrait accélérer votre travail sur Excel.

---

Les meilleurs outils de productivité pour Office

Kutools pour Excel résout la plupart de vos problèmes et augmente votre productivité de 80 %

• Barre de formule avancée (éditez facilement plusieurs lignes de texte et de formules); Mode Lecture (lisez et éditez facilement un grand nombre de cellules); Coller dans une plage filtrée...
• Fusionner des cellules/lignes/colonnes tout en conservant les données; Diviser le contenu des cellules; Consolider des lignes en double et faire la somme/moyenne... Empêcher les doublons dans les cellules; Comparer des plages...
• Sélectionner des lignes en double ou uniques; Sélectionner des lignes vides (toutes les cellules sont vides); Super Recherche et recherche floue dans de nombreux classeurs; Sélection aléatoire...
• Copie exacte de plusieurs cellules sans changer les références de formule; Créer automatiquement des références vers plusieurs feuilles; Insérer des puces, des cases à cocher et plus encore...
• Ajouter et insérer rapidement des formules, des plages, des graphiques et des images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails...
• Extraire du texte, ajouter du texte, supprimer par position, supprimer des espaces; Créer et imprimer des statistiques de page; Convertir entre le contenu des cellules et les commentaires...
• Super Filtre (enregistrer et appliquer des schémas de filtre à d'autres feuilles); Tri avancé par mois/semaine/jour, fréquence et plus; Filtre spécial par gras, italique...
• Consolider des classeurs et feuilles de calcul; Fusionner des tables basées sur des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots de fichiers xls, xlsx et PDF...
• Regroupement dans les tableaux croisés dynamiques par numéro de semaine, jour de la semaine et plus... Afficher les cellules verrouillées/déverrouillées avec différentes couleurs; Mettre en évidence les cellules contenant des formules/noms...

En savoir plus... Essai gratuit de 30 jours avec toutes les fonctionnalités... Acheter... 

---

Office Tab - apporte l'interface à onglets à Office et rend votre travail beaucoup plus facile

• Activer l'édition et la lecture à onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrir et créer plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50 % et réduit des centaines de clics de souris chaque jour !

En savoir plus... Essai gratuit de 30 jours avec toutes les fonctionnalités... Acheter...