Comment envelopper du texte à l’aide de VBA (avec exemple)

Vous pouvez utiliser la propriété WrapText dans VBA pour envelopper le texte dans des cellules spécifiques d’une feuille de calcul Excel.

Voici trois manières courantes d’utiliser cette propriété dans la pratique :

Méthode 1 : envelopper le texte d’une cellule spécifique

Sub UseWrapText()
Range("B2").WrapText = True
End Sub

Méthode 2 : envelopper le texte des cellules dans une plage spécifique

Sub UseWrapText()
Range("B2:B11").WrapText = True
End Sub

Méthode 3 : envelopper le texte de toutes les cellules de la feuille de calcul

Sub UseWrapText()
Cells.WrapText = True
End Sub

Les exemples suivants montrent comment utiliser chaque méthode en pratique avec l’ensemble de données suivant dans Excel :

Allons-y !

Exemple 1 : envelopper le texte d’une cellule spécifique à l’aide de VBA

Nous pouvons créer la macro suivante pour envelopper le texte dans la cellule B2 uniquement :

Sub UseWrapText()
Range("B2").WrapText = True
End Sub

Lorsque nous exécutons cette macro, nous pouvons cliquer sur la cellule B2 et voir que la fonction Renvoyer le texte est activée dans le groupe Alignement de l’onglet Accueil le long du ruban supérieur :

Cependant, nous devons raccourcir la longueur de la colonne B et augmenter la hauteur de la ligne 2 pour voir réellement le texte renvoyé à la ligne :

Nous pouvons maintenant facilement voir que le texte de la cellule B2 est renvoyé à la ligne alors que le texte de toutes les autres cellules de la colonne B n’est pas renvoyé à la ligne.

Exemple 2 : envelopper le texte des cellules dans une plage spécifique à l’aide de VBA

Nous pouvons créer la macro suivante pour envelopper le texte dans chaque cellule de la plage B2:B11 :

Sub UseWrapText()
Range("B2:B11").WrapText = True
End Sub

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

Nous pouvons voir que chaque cellule de la plage B2:B11 contient désormais du texte renvoyé à la ligne.

Exemple 3 : envelopper le texte de toutes les cellules d’une feuille de calcul à l’aide de VBA

Nous pouvons créer la macro suivante pour envelopper le texte de chaque cellule d’une feuille de calcul :

Sub UseWrapText()
Cells.WrapText = True
End Sub

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

Nous pouvons voir que chaque cellule de la feuille de calcul contient désormais du texte renvoyé à la ligne.

Remarque : Vous pouvez trouver la documentation complète de la propriété VBA WrapText ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment changer la couleur de la police
VBA : Comment remplacer des caractères dans une chaîne
VBA : Comment insérer une ligne avec formatage