VBA : Comment supprimer les espaces d’une chaîne

Vous pouvez utiliser la syntaxe de base suivante pour supprimer les espaces d’une chaîne à l’aide de VBA :

Sub RemoveSpaces()

    Dim i As Integer

    For i = 2 To 8
    Range("B" & i) = Replace(Range("A" & i), " ", "")
    Next i
    
End Sub

Cet exemple particulier supprime les espaces de chaque chaîne dans la plage A2:A8 et affiche les résultats dans la plage B2:B8 .

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

Exemple : utilisation de VBA pour supprimer les espaces des chaînes

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

Supposons que nous souhaitions supprimer les espaces de chaque chaîne.

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

Sub RemoveSpaces()

    Dim i As Integer

    For i = 2 To 8
    Range("B" & i) = Replace(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 supprimés.

Remarque : Vous pouvez trouver la documentation complète de la méthode VBA Replace 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