Carole importe des informations dans Excel à partir d’un programme différent, ce qui laisse souvent des espaces supplémentaires dans certaines cellules. Les espaces sont les seules choses dans les cellules, ils semblent donc vides mais ne le sont pas vraiment. Carole s’est interrogée sur la meilleure façon de se débarrasser de ces espaces inutiles.

Vous pouvez utiliser plusieurs approches. La première consiste à utiliser les fonctionnalités de recherche et de remplacement d’Excel. Suivez ces étapes:

  1. Appuyez sur Ctrl + H pour afficher l’onglet Remplacer de la boîte de dialogue Rechercher et remplacer.

  2. Dans la zone Rechercher, entrez deux espaces.

  3. Assurez-vous que la case Remplacer par est vide.

  4. Cochez la case Faire correspondre tout le contenu de la cellule.

  5. Cliquez sur Remplacer tout.

  6. Continuez à cliquer sur Remplacer tout jusqu’à ce qu’Excel ne trouve plus de correspondance.

  7. Répétez les étapes 2 à 5, mais cette fois n’utilisez qu’un seul espace à l’étape 2.

  8. Fermez la boîte de dialogue Rechercher et remplacer.

Une autre option consiste à utiliser la fonction de feuille de calcul Trim. Cette approche est pratique si les cellules que vous souhaitez modifier se trouvent toutes dans une zone particulière de la feuille de calcul, telle qu’une seule colonne. Par exemple, si vous souhaitez supprimer les espaces des cellules de la colonne D, vous pouvez utiliser la formule suivante:

=Trim(D1)

La fonction Trim renvoie le contenu de la cellule D1 sans aucun espace de début ou de fin. Vous pouvez ensuite copier les résultats de cette formule et utiliser Collage spécial pour coller les valeurs dans les cellules de votre choix.

Bien sûr, si vous avez beaucoup de feuilles de calcul à traiter, ou si vous obtenez régulièrement des classeurs contenant les espaces supplémentaires dans les cellules, une meilleure façon serait de créer une macro qui pourrait supprimer les espaces. Le moyen le plus rapide serait peut-être d’examiner toutes les cellules de la feuille de calcul et de supprimer tout espace supplémentaire:

Sub CleanSheet1()

For Each cell In ActiveSheet.UsedRange         cell.Value = Trim(cell)

Next cell End Sub

La macro parcourt chaque cellule et utilise la fonction Trim pour supprimer les espaces de début ou de fin. Cela fonctionne sur toutes les cellules, mais cela peut produire des résultats indésirables, selon les caractéristiques de vos données. Si vous avez des cellules qui ont des espaces de début – et que vous voulez ces espaces – vous devrez utiliser une macro différente. Cette version donnera des résultats plus satisfaisants:

Sub CleanSheet2()

Dim rCell As Range     Dim rText As Range

Set rText = Cells.SpecialCells( _       xlCellTypeConstants, _       xlTextValues)

For Each rCell In rText         If Trim(rCell.Value) = "" Then             rCell.ClearContents         End If     Next     Set rText = Nothing     Set rCell = Nothing End Sub

Il ne vérifie que les cellules contenant des constantes (qui incluent tout le texte de la feuille de calcul), puis vérifie si l’utilisation de la fonction Trim entraînerait une cellule vide. Si tel est le cas, la cellule est effacée. Si la fonction Trim n’aboutit pas à une cellule vide, aucune modification n’est apportée à la cellule.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (12471) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Getting_Rid_of_Spaces_in_Cells [Se débarrasser des espaces dans les cellules].