VBA Concaténation de Chaînes de Texte Ensemble (Symbole &)

Nous avons déjà abordé une introduction aux fonctions de chaîne de caractères dans notre tutoriel VBA sur les fonctions de chaînes et de sous-chaînes. Nous allons maintenant voir comment concaténer des chaînes de texte.

Concaténation de Chaînes de Caractères

Vous pouvez utiliser l’opérateur & en VBA pour joindre des chaînes de texte.

MsgBox "Fusionner" & "Texte"

Concaténation de Cellules

Vous pouvez également concaténer des cellules entre elles. Ci-dessous, nous avons les chaînes de texte dans A1 et B1 :

Le code suivant vous montre comment joindre les chaînes de texte des cellules A1 et B1 en utilisant l’opérateur &, dans la cellule C1 :

Range("C1").Value = Range("A1").Value & Range("B1").value

Le résultat est le suivant :

Concaténation de Variables

Voici la procédure complète pour concaténer deux cellules ensemble en utilisant des variables de type chaîne.

Sub ConcaténationChaines()

Dim ChaineUn As String
Dim ChaineDeux As String

ChaineUn = Range("A1").Value
ChaineDeux = Range("B1").Value

Range("C1").Value = ChaineUn & ChaineDeux

End Sub

Utilisation de l’Opérateur & avec des Espaces

Lorsque vous voulez inclure des espaces, vous utilisez & en conjonction avec  » « . Le code suivant montre comment inclure des espaces :

Sub ConcaténationChainesAvecEspaces()

Dim ChaineUn As String
Dim ChaineDeux As String
Dim ChaineTrois As String

ChaineUn = "Ceci est"
ChaineDeux = "le texte"
ChaineTrois = ChaineUn & " " & ChaineDeux

MsgBox ChaineTrois

End Sub

Le résultat de la MessageBox est :

Utilisation de l’Opérateur & pour Concaténer un Guillemet

Supposons que votre chaîne de texte contienne un guillemet, le code suivant vous montre comment inclure un guillemet dans une chaîne de texte :

Sub ConcaténerUnGuillemet()

Dim ChaineUn As String
Dim ChaineDeux As String
Dim ChaineTrois As String

ChaineUn = "Voici un guillemet"
ChaineDeux = """"
ChaineTrois = ChaineUn & " " & ChaineDeux

MsgBox ChaineTrois

End Sub

Le résultat est :

Placer des Chaînes de Caractères sur une Nouvelle Ligne

Disons que vous avez cinq chaînes de texte, vous pouvez placer chaque chaîne de texte sur une nouvelle ligne ou un nouveau paragraphe, en utilisant la fonction vbNewLine, vbCrLf, vbCr ou Chr. Le code suivant vous montre comment placer chaque chaîne de texte sur une nouvelle ligne :

Sub AfficherDesChainesSurPlusieursLignes()

Dim ChaineUn As String
Dim ChaineDeux As String
Dim ChaineTrois As String
Dim StringFour As String
Dim ChaineCinq As String


ChaineUn = "Ceci est la première chaine"
ChaineDeux = "Ceci est la deuxième chaine"
ChaineTrois = "Ceci est la troisième chaine"
StringFour = "Ceci est la quatrième chaine"
ChaineCinq = "Ceci est la cinquième chaine"

MsgBox ChaineUn & vbNewLine & ChaineDeux & vbCrLf & ChaineTrois & vbCr _
    & StringFour & vbCr & ChaineCinq

End Sub

Le résultat est :

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!