VBA : Comment supprimer les espaces de début et de fin

Vous pouvez utiliser la syntaxe de base suivante pour supprimer les espaces de début et de fin des chaînes à l’aide de VBA :

Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range("B" & i) = Trim(Range("A" & i))
    Next i
    
End Sub

Cet exemple particulier supprime les espaces de début et de fin de chaque chaîne dans la plage A2:A7 et génère les résultats dans la plage B2:B7 .

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : utilisation de VBA pour supprimer les espaces de début et de fin des chaînes

Supposons que nous ayons la liste de chaînes suivante dans Excel :

Notez que plusieurs chaînes comportent des espaces de début ou de fin.

Supposons que nous souhaitions supprimer les espaces de début et de fin de chaque chaîne.

Nous pouvons créer la macro suivante pour ce faire :

Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range("B" & i) = Trim(Range("A" & i))
    Next i
    
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La colonne B affiche chacune des chaînes de la colonne A avec les espaces de début et de fin supprimés.

Notez que si vous souhaitez supprimer uniquement les espaces de début ou de fin des chaînes, vous pouvez utiliser respectivement les fonctions LTrim ou RTrim .

Remarque : Vous pouvez trouver la documentation complète de chacune des fonctions VBA Trim ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes à l’aide de VBA :

VBA : Comment compter les occurrences de caractères dans une chaîne
VBA : comment vérifier si une chaîne contient une autre chaîne
VBA : Comment compter les cellules avec un texte spécifique