Ce didacticiel montrera comment utiliser les fonctions Trim, LTrim et RTrim VBA ainsi que la fonction Trim de feuille de calcul.
Fonction de coupe
La fonction VBA Trim supprime (« rogne ») les espaces erronés avant et après les chaînes de texte.
Couper les espaces avant et après le texte
La fonction VBA Trim supprimera les espaces avant et après les chaînes de texte :
12345678910 | Sub TrimExample_1()MsgBox Trim(" J'aime excel ")« Le résultat est : « J'aime exceller »MsgBox Trim("J'aime excel")« Le résultat est : « J'aime exceller »MsgBox Trim("J'aime excel")« Le résultat est : « J'aime exceller »Fin du sous-marin |
Couper plusieurs espaces avant et après le texte
Cela inclut le rognage de plusieurs espaces avant et après le texte :
12345678910 | Sub TrimExample_2()MsgBox Trim(" J'aime excel ")« Le résultat est : « J'aime exceller »MsgBox Trim("J'aime excel")« Le résultat est : « J'aime exceller »MsgBox Trim("J'aime excel")« Le résultat est : « J'aime exceller »Fin du sous-marin |
VBA Trim ne supprimera PAS plusieurs espaces entre les mots
Cependant, la fonction Trim ne supprimera pas plusieurs espaces entre les mots :
12345678910 | Sub TrimExample_3()MsgBox Trim(" J'aime excel ")« Le résultat est : « J'aime exceller »MsgBox Trim("J'aime excel")« Le résultat est : « J'aime exceller »MsgBox Trim("J'aime excel")« Le résultat est : « J'aime exceller »Fin du sous-marin |
Couper en tant que fonction de feuille de calcul
Cependant, la fonction de feuille de calcul Excel Trim peut être utilisée pour supprimer les espaces supplémentaires entre les mots :
Utiliser la fonction de rognage de la feuille de calcul dans VBA
Pour utiliser la fonction Excel Trim dans VBA, appelez-la à l'aide de WorksheetFunction :
12345678910 | Sub TrimExample_4()Msgbox WorksheetFunction.Trim(" J'aime excel ")« Le résultat est : « J'aime exceller »Msgbox WorksheetFunction.Trim(" J'aime Excel")« Le résultat est : « J'aime exceller »Msgbox WorksheetFunction.Trim("J'aime excel")« Le résultat est : « J'aime exceller »Fin du sous-marin |
Fatigué de rechercher des exemples de code VBA ? Essayez AutoMacro !
Différence entre WorksheetFunction.Trim et VBA Trim
Cela montrera les différences entre Trim et WorksheetFunction.Trim :
1234567891011121314151617 | Sub TrimExample_5()Msgbox WorksheetFunction.Trim(" J'aime excel ")« Le résultat est : « J'aime exceller »Msgbox Trim(" J'aime excel ")« Le résultat est : « J'aime exceller »Msgbox WorksheetFunction.Trim(" J'aime Excel")« Le résultat est : « J'aime exceller »Msgbox Trim (" J'aime excel ")« Le résultat est : « J'aime exceller »Msgbox WorksheetFunction.Trim("J'aime excel")« Le résultat est : « J'aime exceller »Msgbox Trim("J'aime excel")« Le résultat est : « J'aime exceller »Fin du sous-marin |
Utilisez VBA pour ajouter la fonction Trim dans une plage
La fonction Trim Worksheet peut être ajoutée dans une plage à l'aide de la propriété .Formula :
123 | Sub TrimExample_6()ThisWorkbook.Worksheets("Sheet1").Range("B1").Formula = "=trim(A1)"Fin du sous-marin |
Fonction LTrim
La fonction LTrim supprime les espaces uniquement du côté gauche du mot :
12345678910111213141516171819 | Sub TrimExample_7()MsgBox LTrim(" J'aime excel ")« Le résultat est : « J'aime exceller »MsgBox LTrim("J'aime excel")« Le résultat est : « J'aime exceller »MsgBox LTrim("J'aime excel")« Le résultat est : « J'aime exceller »MsgBox LTrim(" J'aime excel ")« Le résultat est : « J'aime exceller »MsgBox LTrim("J'aime excel")« Le résultat est : « J'aime exceller »MsgBox LTrim("J'aime excel")« Le résultat est : « J'aime exceller »Fin du sous-marin |
Fonction RTrim
La fonction RTrim supprime les espaces uniquement du côté droit du mot :
12345678910111213141516171819 | Sub TrimExample_8()MsgBox RTrim(" J'aime excel ")'Le résultat est : " J'aime exceller"MsgBox RTrim (" J'aime excel ")'Le résultat est : " J'aime exceller"MsgBox RTrim("J'aime excel")« Le résultat est : « J'aime exceller »MsgBox RTrim(" J'aime excel ")'Le résultat est : " J'aime exceller"MsgBox RTrim (" J'aime excel ")'Le résultat est : " J'aime exceller"MsgBox RTrim("J'aime excel")« Le résultat est : « J'aime exceller »Fin du sous-marin |
Trim, Ltrim et Rtrim ne suppriment pas les espaces entre les mots.
Supprimer tous les espaces du texte
Trim ne supprimera que les espaces supplémentaires entre les mots, mais pour supprimer tous les espaces dans une chaîne de texte, vous pouvez utiliser la fonction Remplacer :
1234 | Sub ReplaceExample ()MsgBox Replace(" J'aime excel ", " ", "")'Le résultat est : "Iloveexcel"Fin du sous-marin |