Ajouter du texte et des nombres à une position spécifique dans une cellule Excel
Dans Excel, ajouter des textes ou des nombres dans des cellules est une tâche très courante. Par exemple, ajouter un espace entre les noms, ajouter un préfixe ou un suffixe aux cellules, ou encore ajouter des tirets aux numéros de sécurité sociale. Dans ce tutoriel, nous passons en revue presque toutes les situations d'ajout possibles dans Excel et vous fournissons les méthodes correspondantes.
Remarque
Dans ce tutoriel, je crée quelques exemples pour expliquer les méthodes. Vous pouvez modifier les références selon vos besoins lorsque vous utilisez le code VBA ou les formules ci-dessous, ou vous pouvez télécharger les exemples pour essayer les méthodes directement.
Cliquez pour télécharger le fichier d'exemple
Cette partie énumère différentes méthodes pour ajouter des caractères au début de chaque cellule, comme le montre la capture d'écran ci-dessous :
1.1 Ajouter au début des cellules en utilisant une formule
Ici, vous pouvez choisir l'une des trois formules ci-dessous :
Opérateur de concaténation Formule1 "&"
Joignez plusieurs textes ensemble à l'aide du caractère esperluette "&".
"texte"&cellule
Fonction CONCATENATE de Formule2
La fonction CONCATENATE est utilisée pour joindre des textes ensemble.
CONCATENATER("texte",cellule)
Fonction CONCAT de Formule3
Il s'agit d'une nouvelle fonction qui n'apparaît que dans Excel 2019, Office 365 et Excel en ligne.
CONCAT("texte",cellule)
Dans les formules génériques : cellule est la référence de cellule vers le texte auquel vous souhaitez ajouter un préfixe, et texte est le texte utilisé pour être ajouté à la cellule.
En utilisant l'exemple ci-dessus, vous pouvez utiliser les formules dans la barre de formule comme suit :
"&"
=$E$3&B3 ou ="Iphone"&B3
Fonction CONCATENER
=CONCATENATE($E$3;B3) ou =CONCATENATE("Iphone";B3)
Fonction CONCAT
=CONCAT($E$3;B3) ou =CONCAT("Iphone";B3)
Appuyez sur Entrer Appuyez sur la touche pour obtenir le résultat, puis faites glisser la poignée de recopie automatique vers le bas pour ajouter du texte à chaque cellule de la plage B3:B6.
Attention : Le texte doit être encadré par des guillemets doubles, sinon la formule renvoie une valeur d'erreur #NOM?. Si vous utilisez la référence de cellule pour un texte, n'oubliez pas d'utiliser la référence absolue. Vous pouvez appuyer sur la touche F4 pour changer la référence relative en référence absolue. |
1.2 Ajouter au début des cellules avec le remplissage instantané
Si vous utilisez Excel 2013 ou une version ultérieure, la puissante nouvelle fonctionnalité, Flash Fill, peut remplir les cellules automatiquement en se basant sur les cellules que vous avez saisies ci-dessus.
Choisissez une cellule à côté des premières données d'origine, puis saisissez manuellement la première donnée avec le texte du préfixe comme indiqué ci-dessous :
Ensuite, dans la cellule en dessous, continuez à taper les deuxièmes données avec le texte préfixe. Pendant la saisie, une liste en couleur grise s'affichera, appuyez sur Entrer clé permettant au Remplissage instantané de remplir les données automatiquement.
Si la liste de prévisualisation ne se génère pas, veuillez aller à l'onglet Accueil, puis cliquez sur Remplissage > Remplissage instantané pour l'exécuter manuellement.
1.3 Ajouter au début des cellules en utilisant le code VBA
Si vous êtes familiarisé avec le code VBA, voici un code VBA pour ajouter du texte au début de chaque cellule dans une plage.
1. Sélectionnez une plage de cellules à laquelle vous souhaitez ajouter le texte préfixe, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Ensuite, dans la fenêtre qui apparaît, cliquez Insérer > Module pour insérer un nouveau module vide.
3. Copiez et collez le code VBA ci-dessous dans le nouveau module.
VBA : Ajouter au début des cellules
Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub
Attention : dans le script de code, Iphone est le texte que vous souhaitez ajouter au début des cellules sélectionnées, modifiez-le selon vos besoins. |
4. Appuyez sur F5 touche ou clic Exécuter bouton dans la fenêtre pour activer le code VBA.
Maintenant, tout le texte "Iphone" a été ajouté au début de toutes les cellules sélectionnées.
Outre l'ajout de texte au début des cellules, ajouter du texte à la fin des cellules est également courant. Ici, nous prendrons pour exemple l'ajout d'une unité à la fin de chaque cellule, comme le montre la capture d'écran ci-dessous :
2.1 Ajouter à la fin des cellules en utilisant une formule
Ici, vous pouvez choisir l'une des trois formules ci-dessous :
Opérateur de concaténation Formule1 "&"
Joignez plusieurs textes ensemble à l'aide du caractère esperluette "&".
Cellule&"texte"
Fonction CONCATENATE de Formule2
La fonction CONCATENATE est utilisée pour joindre des textes ensemble.
CONCATENATER(cellule,"texte")
Fonction CONCAT de Formule3
Il s'agit d'une nouvelle fonction qui n'apparaît que dans Excel 2019, Office 365 et Excel en ligne.
CONCAT(cellule,"texte")
Dans les formules génériques : cellule est la référence de cellule vers le texte auquel vous souhaitez ajouter un suffixe, et texte est le texte que vous souhaitez ajouter à la cellule.
En utilisant l'exemple ci-dessus, vous pouvez utiliser les formules dans la barre de formule comme suit :
"&"
=B3&$E$3 ou =B3&"Kg"
Fonction CONCATENATE
=CONCATENATE(B3, $E$3) ou =CONCATENATE(B3, "Kg")
Fonction CONCAT
=CONCAT(B3, $E$3) ou =CONCAT(B3, "Kg")
Appuyez sur Entrer Appuyez sur la touche pour obtenir le résultat, puis faites glisser la poignée de recopie automatique vers le bas pour ajouter du texte à la fin de chaque cellule de la plage B3:B6.
Attention : Le texte doit être placé entre guillemets doubles, sinon la formule renvoie une valeur d'erreur #NOM?. Si vous utilisez la référence de cellule vers un texte, n'oubliez pas d'utiliser la référence absolue. Vous pouvez appuyer sur la touche F4 pour changer la référence relative en référence absolue. |
2.2 Ajouter à la fin des cellules avec le remplissage instantané
Si vous utilisez Excel 2013 ou une version ultérieure, la puissante nouvelle fonctionnalité, Flash Fill, peut remplir les cellules automatiquement en se basant sur les cellules que vous avez saisies ci-dessus.
Choisissez une cellule à côté des premières données d'origine, puis saisissez manuellement la première donnée avec le texte suffixe comme indiqué ci-dessous :
Ensuite, activez la cellule sous le premier résultat, puis cliquez Données > Remplissage instantané, toutes les cellules ci-dessous, y compris la cellule active, seront remplies automatiquement.
2.3 Ajouter à la fin des cellules en utilisant le code VBA
Voici un code VBA qui peut ajouter du texte à la fin de chaque cellule dans une plage.
1. Sélectionnez une plage de cellules à laquelle vous souhaitez ajouter le texte suffixe, puis appuyez sur les touches Alt + F11 pour activer la fenêtre Microsoft Visual Basic for Applications.
2. Ensuite, dans la fenêtre qui apparaît, cliquez Insérer > Module pour insérer un nouveau module vide.
3. Copiez et collez le code VBA ci-dessous dans le nouveau module.
VBA : Ajouter à la fin des cellules
Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub
Attention : dans le script de code, Kg est le texte que vous souhaitez ajouter à la fin des cellules sélectionnées, modifiez-le selon vos besoins. |
4. Appuyez sur F5 touche ou clic Exécuter bouton dans la fenêtre pour activer le code VBA.
Le texte "Kg" a maintenant été ajouté à la fin de chaque cellule.
Pour la plupart d'entre vous, ajouter des textes au début ou à la fin des cellules est facile, mais ajouter des textes au milieu des cellules peut être quelque peu difficile. Par exemple, comme le montre la capture d'écran ci-dessous, ajouter un délimiteur, tel que deux-points : à la fin du deuxième caractère de chaque cellule dans la plage B3:B7.
3.1 Ajouter après le n-ième caractère d'une chaîne de caractères par formule
Voici quatre formules proposées pour vous aider à gérer cette tâche, choisissez-en une à utiliser :
Formule1 Combiner les fonctions GAUCHE et DROITE
GAUCHE(cellule, n) & "texte" & DROITE(cellule, NBCAR(cellule) -n)
Formule2 COMBINER CONCATÉNER(CONCAT), DROITE et LONGUEUR fonctions
CONCATENATE(GAUCHE(cellule, n), "texte", DROITE(cellule, NBCAR(cellule) -n))
Ou
CONCAT(GAUCHE(cellule, n), "texte", DROITE(cellule, LONGUEUR(cellule) -n))
Fonction REPLACE de Formula3
REMPLACER(cellule, n+1, 0, "texte")
Dans les formules génériques : cellule est la référence de cellule vers le texte auquel vous souhaitez ajouter du texte au milieu, et texte est le texte que vous souhaitez ajouter à la cellule, n est le nombre qui définit après quel caractère de la chaîne de texte vous souhaitez ajouter le texte.
Pour résoudre le problème mentionné ci-dessus, veuillez utiliser les formules suivantes :
Combiner les fonctions GAUCHE et DROITE
=GAUCHE(B3, 2) & ":" & DROITE(B3, NBCAR(B3) -2) ou =GAUCHE(B3, 2) & $E$3 & DROITE(B3, NBCAR(B3) -2)
COMBINER CONCATÉNER (CONCAT), DROITE et LONGUEUR fonctions
=CONCATENATE(GAUCHE(B3, 2), ":", DROITE(B3, NBCAR(B3) -2)) ou =CONCAT (GAUCHE(B3, 2), ":", DROITE(B3, NBCAR(B3) -2))
Fonction REMPLACER
=REMPLACER(B3, 2+1, 0, ":") ou =REMPLACER(B3, 2+1, 0, $E$3)
Appuyez sur Entrer Appuyez sur Entrée pour obtenir le résultat, puis faites glisser la poignée de recopie automatique vers le bas pour ajouter du texte après le deuxième caractère de chaque cellule de la plage B3:B7.
Attention : Le texte doit être enclos entre guillemets doubles, sinon la formule renvoie une valeur d'erreur #NOM?. Si vous utilisez la référence de cellule vers un texte, n'oubliez pas d'utiliser la référence absolue. Vous pouvez appuyer sur la touche F4 pour changer la référence relative en référence absolue. |
3.2 Ajouter après le n-ième caractère de la chaîne avec le Remplissage instantané
Si vous utilisez Excel 2013 ou une version ultérieure, le remplissage instantané peut remplir les cellules automatiquement en se basant sur les cellules que vous avez saisies ci-dessus.
Choisissez une cellule à côté des premières données d'origine, puis saisissez manuellement la première donnée en ajoutant deux points après le deuxième caractère comme indiqué ci-dessous :
Ensuite, activez la cellule sous le premier résultat, puis appuyez sur Ctrl + E clés pour activer Remplissage instantané commande, toutes les cellules ci-dessous, y compris la cellule active, ont été remplies automatiquement.
Remarque : Si vous êtes sur un système MAC, appuyez sur les touches Commande + E. |
3.3 Ajouter après le n-ième caractère d'une chaîne en utilisant le code VBA
Un code VBA peut également faire ce travail.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Ensuite, dans la fenêtre qui apparaît, cliquez Insérer > Module pour insérer un nouveau module vide.
3. Copiez et collez le code VBA ci-dessous dans le nouveau module.
VBA : Ajouter au milieu des cellules
Sub AddToMidduleOfString()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
Next
End Sub
Attention : dans le script de code, 2 est le nombre qui définit la position après laquelle vous souhaitez ajouter du texte, : est le texte que vous souhaitez ajouter, 3 est la somme de 2 et de la longueur du texte que vous ajoutez. Prenons un autre exemple, pour ajouter "et" après le premier caractère de la chaîne "A B", le script devrait être Rng.Value = VBA.Left(Rng.Value, 1) & "et" & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Value) - 1) |
4. Appuyez sur F5 touche ou clic Exécuter bouton dans la fenêtre pour activer le code VBA. Une boîte de dialogue apparaît pour sélectionner les cellules où ajouter du texte.
5. Cliquez OK. Le texte ":" a maintenant été ajouté après le deuxième caractère de chaque cellule dans la plage B19:B23.
4. Ajouter du texte avec Kutools pour Excel (ajouter des caractères à une position spécifique selon vos besoins)
Si vous en avez assez des formules et de VBA, vous pouvez essayer un outil puissant et pratique, Kutools pour Excel, qui peut vous aider avec son Ajouter du texte fonctionnalité.
Cette fonction Ajouter du texte peut :
- Ajouter du texte avant le premier caractère
- Ajouter du texte après le dernier caractère
- Ajouter du texte à des positions spécifiées
- Extension
Ajouter du texte avant les lettres majuscules
Ajouter du texte avant les lettres minuscules
Ajouter du texte avant les lettres majuscules et minuscules
Ajouter du texte avant les caractères numériques
Sélectionnez les cellules auxquelles vous souhaitez ajouter du texte, puis appliquez l'option Ajouter du texte en cliquant. Kutools > Texte > Ajouter du texte.
4.1 Ajouter du texte avant le premier caractère ou après le dernier caractère
Dans le Ajouter du texte dans la boîte de dialogue, saisissez le texte que vous souhaitez ajouter aux cellules dans la Texte zone de texte, puis vérifiez Avant le premier caractère dans le Position section.
Cliquez Appliquer ou D'accord pour terminer l'ajout.
Pour ajouter du texte après le dernier caractère, saisissez le texte que vous souhaitez ajouter aux cellules dans le Texte zone de texte, puis cochez Après le dernier caractère dans le Position section.
Cliquez Appliquer ou D'accord pour terminer l'ajout.
4.2 Ajouter du texte à des positions spécifiées
Parfois, vous pouvez souhaiter ajouter du texte au milieu d'une cellule ou à plusieurs positions d'une cellule. Supposons que vous deviez ajouter le séparateur "-" après le troisième et le septième chiffre des numéros de sécurité sociale, comme illustré dans la capture d'écran ci-dessous :
Dans le Ajouter du texte dans la boîte de dialogue, saisissez le texte dans Texte zone de texte, et vérifiez Préciser option, puis saisissez les positions en utilisant une virgule comme séparateur dans la zone de texte, puis cliquez D'accord ou Appliquer.
4.3 Extension de l'utilitaire Ajouter du texte
Outre l'ajout de texte dans les positions normales (début, fin et position spécifiée), l'utilitaire Ajouter du texte prend également en charge l'ajout de texte
- Avant les lettres majuscules
- Avant les lettres minuscules
- Avant les lettres majuscules et minuscules
- Avant les chiffres
Dans le Ajouter du texte dans la boîte de dialogue, saisissez le texte dans Texte zone de texte, et vérifiez Avancé option, puis cliquez sur le menu déroulant ci-dessous pour choisir l'opération dont vous avez besoin.
Cette partie fournit des formules pour ajouter du texte avant ou après la première occurrence d'un texte spécifique dans Excel.
5.1 Ajouter du texte avant le premier texte spécifique
Par exemple, vous souhaitez ajouter le texte "(solde)" avant le premier texte "prix" dans la cellule, comme le montrent les captures d'écran ci-dessous :
Dans Excel, les fonctions REMPLACER et SUBSTITUT peuvent résoudre cette tâche.
Fonction REMPLACER
REMPLACER(cellule,TROUVE("texte_à_trouver",cellule),0,"texte_à_ajouter")
Fonction SUBSTITUE
SUBSTITUE(cellule,"texte_à_trouver","texte_de_remplacement",1)
Dans ce cas, veuillez utiliser les formules ci-dessus comme suit :
=REMPLACER(B4,TROUVE("price",B4),0,"(sale)")
Ou
=SUBSTITUE(B4,"price","(sale)price",1)
Les arguments de la formule dans ce cas sont
Cellule : B4,
Texte à rechercher : prix,
Ajouter du texte : (vente),
Remplacer_texte : (vente)prix.
Appuyez sur Entrer Appuyez sur la touche pour obtenir le premier résultat d'addition, puis faites glisser la poignée de recopie automatique sur les cellules qui nécessitent cette formule.
5.2 Ajouter du texte après le premier texte spécifique
Par exemple, vous souhaitez ajouter le symbole monétaire « $ » après le premier deux-points « : » dans la cellule, comme le montrent les captures d'écran ci-dessous :
Dans Excel, les fonctions REMPLACER et SUBSTITUT peuvent résoudre cette tâche.
Fonction REMPLACER
REMPLACER(cellule,TROUVE("texte_à_trouver",cellule),longueur_texte_à_trouver,"texte_de_remplacement")
Fonction SUBSTITUE
SUBSTITUE(cellule,"texte_recherché","texte_remplacement")
Dans ce cas, veuillez utiliser les formules ci-dessus comme suit :
=REMPLACER(B12,TROUVE(":",B12),1,":$")
Ou
=SUBSTITUE(B12,":";":$")
Les arguments de la formule dans ce cas sont
Cellule : B12,
Texte_recherché : :,
Remplacer_texte::$.
Trouver_longueur_texte:1
Appuyez sur Entrer Appuyez sur la touche pour obtenir le premier résultat d'addition, puis faites glisser la poignée de recopie automatique sur les cellules qui nécessitent cette formule.
Dans cette partie du tutoriel, trois méthodes différentes (formule, Rechercher et Remplacer, VBA) sont présentées pour vous aider à ajouter des caractères avant ou après chaque mot d'une cellule.
Ajouter des caractères avant chaque mot |
![]() |
Ajouter des caractères après chaque mot |
![]() |
6.1 Ajouter un ou plusieurs caractères avant ou après chaque mot par formule
La fonction SUBSTITUT peut être utilisée pour résoudre cette tâche, les formules générales sont les suivantes :
Ajouter avant chaque mot
"caractère"&SUBSTITUE(chaîne, " "," caractère")
Ajouter après chaque mot
SUBSTITUE(chaine," ","caractère ")&"caractère"
Supposons que vous souhaitiez ajouter un "+" avant chaque mot dans la liste B3:B6, veuillez utiliser la formule suivante :
="+"&SUBSTITUE(B3, " "," +")
Appuyez sur Entrer Appuyez sur la touche pour obtenir le premier résultat, puis faites glisser la poignée de remplissage automatique vers le bas pour obtenir tous les résultats.
Supposons que vous souhaitiez ajouter ($) après chaque mot de la liste B11:B14, veuillez utiliser la formule ci-dessous :
=SUBSTITUE(B11," ","($) ")&"($)"
Appuyez sur Entrer Appuyez sur la touche pour obtenir le premier résultat, puis faites glisser la poignée de remplissage automatique vers le bas pour obtenir tous les résultats.
6.2 Ajouter des caractères avant ou après chaque mot avec Rechercher et Remplacer
Si vous souhaitez ajouter des caractères avant chaque mot, à l'exception du premier, ou ajouter des caractères après chaque mot, à l'exception du dernier, comme le montre la capture d'écran ci-dessous, l'utilitaire de Rechercher et Remplacer intégré d'Excel peut gérer cette tâche.
Ajouter avant chaque mot, à l'exclusion du premier
Ajouter après chaque mot sauf le dernier
1. Sélectionnez les cellules auxquelles vous souhaitez ajouter des caractères avant ou après chaque mot, puis appuyez sur les touches Ctrl + H pour activer la boîte de dialogue Rechercher et Remplacer.
2. Tapez un espace dans la zone de texte Rechercher quoi, puis tapez les nouveaux caractères avec un espace dans la zone de texte Remplacer par, et enfin cliquez sur le bouton Remplacer tout.
Calcul | Général | Exemple |
Ajouter des caractères avant chaque mot | Ajouter de nouveaux caractères après un espace | Ajouter (vente) avant chaque mot |
Calcul | Général | Exemple |
Ajouter des caractères après chaque mot | Nouveaux caractères suivis d'un espace | Ajouter - après chaque mot |
Voici deux codes VBA pour ajouter des caractères avant ou après chaque mot. Veuillez exécuter le code en suivant les étapes ci-dessous.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre qui apparaît, cliquez Insérer > Module pour insérer un nouveau module vide.
3. Copiez et collez le code VBA ci-dessous dans le module.
Ajouter avant chaque mot
Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = xInStr & Trim(xStr)
Else
xValue = xValue & " " & xInStr & Trim(xStr)
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End Sub
Ajouter après chaque mot
Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = Trim(xStr) & xInStr
Else
xValue = xValue & " " & Trim(xStr) & xInStr
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End Sub
4. Appuyez sur F5 touche pour exécuter le code (ou vous pouvez cliquer Exécuter bouton ), une boîte de dialogue apparaît vous demandant de sélectionner des cellules contiguës pour travailler, cliquez OK.
5. Dans la deuxième boîte de dialogue qui apparaît, saisissez les caractères que vous souhaitez ajouter, puis cliquez OK.
Les caractères seront ensuite ajoutés au début ou à la fin de chaque mot.
Parfois, vous pourriez vouloir ajouter du texte entre chaque caractère. Dans cette partie, deux scénarios sont listés : l'un consiste à ajouter du texte entre chaque caractère, l'autre à ajouter un espace entre chaque nombre.
7.1 Ajouter du texte entre chaque caractère/chiffre avec une fonction définie par l'utilisateur
Pour ajouter des caractères entre chaque caractère d'une chaîne, la fonction définie par l'utilisateur peut vous aider.
Dans ce cas, nous ajoutons un espace entre chaque caractère.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre qui apparaît, cliquez Insérer > Module pour insérer un nouveau module vide.
3. Copiez et collez le code VBA ci-dessous dans le module.
Ajouter du texte entre les caractères
Function AddText(Str As String) As String
Dim i As Long
For i = 1 To Len(Str)
AddText = AddText & Mid(Str, i, 1) & " "
Next i
AddSpace = Trim(AddSpace)
End Function
4. Enregistrez le code et fermez la fenêtre pour revenir à la feuille de calcul, puis saisissez la formule ci-dessous dans une cellule où vous souhaitez placer le résultat de l'addition.
=AjouterTexte(B3)
B3 est la cellule qui contient la chaîne de caractères entre lesquels vous souhaitez ajouter des espaces.
5. Appuyez sur Entrer Pour obtenir le résultat, faites glisser la poignée de remplissage automatique sur les cellules pour obtenir d'autres résultats selon vos besoins.
Attention : 1) Dans le code VBA, vous pouvez modifier " " par d'autres textes selon vos besoins, en supposant que vous le changiez par "-" pour ajouter - entre les caractères. 2) Le code ajoutera le nouveau texte après chaque caractère. Vous pouvez supprimer le dernier texte ajouté si vous n'en avez pas besoin en utilisant la formule ci-dessous. Pour plus de détails sur la formule, veuillez visiter : Comment supprimer les N premiers ou derniers caractères d'une cellule ou d'une chaîne dans Excel ? GAUCHE(cellule;NBCAR(cellule)-longueur_texte) |
7.2 Ajouter un espace entre chaque nombre avec une formule
Si vous souhaitez ajouter un espace entre les chiffres d'une chaîne qui est une valeur numérique, vous pouvez utiliser la fonction TEXTE.
Attention : les nombres de la plage auxquels vous souhaitez ajouter des espaces doivent avoir la même longueur, sinon certains résultats peuvent être incorrects. |
Supposons qu'il y ait une liste de nombres à 8 chiffres dans la plage B10:B12, veuillez sélectionner une cellule où placer le résultat et taper la formule ci-dessous :
=TEXTE(B10,"# # # # # # # #")
Appuyez sur Entrer touche, puis faites glisser la poignée de recopie automatique sur les autres cellules.
Si la longueur des nombres est de 5, la formule sera modifiée en =TEXT(B10,"# # # # #").
Si vous souhaitez ajouter des caractères entre chaque mot, par exemple ajouter un espace entre le prénom, le deuxième prénom et le nom de famille comme le montre la capture d'écran ci-dessous, vous pouvez utiliser une fonction définie par l'utilisateur.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre qui apparaît, cliquez sur Insérer > Module pour insérer un nouveau module vide.
3. Copiez et collez le code VBA ci-dessous dans le module.
Ajouter des caractères entre les mots
Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function
4. Enregistrez le code et fermez la fenêtre pour revenir à la feuille de calcul, puis tapez la formule ci-dessous dans une cellule où vous souhaitez placer le résultat de l'addition.
=AjouterCaractères(B3)
B3 est la cellule qui contient la chaîne de caractères entre les mots de laquelle vous souhaitez ajouter un espace.
5. Appuyez sur Entrer Pour obtenir le résultat, faites glisser la poignée de remplissage automatique sur les cellules pour obtenir d'autres résultats selon vos besoins.
Attention : dans le code VBA, vous pouvez modifier le " " par d'autres textes selon vos besoins, en supposant que vous le changiez par "-" pour ajouter - entre les mots. |
Pour ajouter un ou plusieurs caractères spécifiques entre des textes et des nombres comme le montre la capture d'écran ci-dessous, voici deux méthodes proposées.
9.1 Ajouter un caractère entre les textes et les nombres avec une formule
Si les textes se trouvent devant les nombres, la formule générique est
TRIM(REPLACE(chaîne,MIN(TROUVE({1,2,3,4,5,6,7,8,9,0},chaîne&"1234567890")),0,"-"))
En prenant l'exemple ci-dessus, veuillez utiliser la formule de cette manière :
=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))
Appuyez sur Entrer Appuyez sur la touche pour obtenir le premier résultat, puis faites glisser la poignée de remplissage automatique sur les autres cellules pour appliquer cette formule.
Si les nombres se trouvent devant les textes, la formule générique est
GAUCHE(chaine,SOMME(LONGUEUR(chaine)-LONGUEUR(SUBSTITUE(chaine,{0,1,2,3,4,5,6,7,8,9},""))))&"."&DROITE(chaine,LONGUEUR(B13)- SOMME(LONGUEUR(chaine)-LONGUEUR(SUBSTITUE(chaine, {0,1,2,3,4,5,6,7,8,9}, ""))))
En prenant l'exemple ci-dessus, veuillez utiliser la formule de cette manière :
=GAUCHE(B13,SOMME(NBCAR(B13)-NBCAR(SUBSTITUE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&DROITE(B13,NBCAR(B13)- SOMME(NBCAR(B13)-NBCAR(SUBSTITUE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))
Appuyez Entrer Appuyez sur la touche pour obtenir le premier résultat, puis faites glisser la poignée de remplissage automatique sur les autres cellules pour appliquer cette formule.
9.2 Ajouter un caractère entre les textes et les nombres avec le remplissage instantané
Si vous utilisez Excel 2013 ou une version ultérieure, le remplissage instantané peut également vous aider à ajouter des caractères entre les textes et les nombres.
À côté des données d'origine, saisissez les nouvelles données auxquelles des caractères ont été ajoutés entre les textes et les nombres. Ensuite, appuyez sur la touche Entrée pour passer à la cellule suivante du premier résultat.
Et appuyez sur Ctrl + E clés pour activer le remplissage instantané.
Extension
Ce tutoriel répertorie également certains scénarios d'ajout de texte que nous pourrions rencontrer dans notre vie quotidienne ou au travail.
Parfois, vous devez ajouter des séparateurs, tels que des tirets, à une série de numéros de téléphone ou de numéros de sécurité sociale, comme le montre la capture d'écran ci-dessous. Si des centaines de numéros doivent être ajoutés, la saisie manuelle pourrait s'avérer fastidieuse. Dans cette section, nous présentons trois astuces pour effectuer cette tâche rapidement.
10.1 Ajouter des tirets aux nombres par formule
Voici deux formules qui peuvent rapidement ajouter des tirets aux nombres. Pour ajouter des tirets après le troisième et le sixième chiffre dans la cellule B3, veuillez utiliser les formules suivantes :
Fonction REMPLACER
=REMPLACER(REMPLACER(B3,4,0,"-"),8,0,"-")
Fonction TEXTE
=TEXTE(B3,"???-???-??? ")
Appuyez sur Entrer Appuyez sur la touche pour obtenir le premier résultat, puis faites glisser la poignée de remplissage automatique sur les autres cellules.
Attention : Vous pouvez modifier les arguments des formules ci-dessus selon vos besoins. Par exemple, pour ajouter "-" après le deuxième, le quatrième et le sixième chiffre, vous pouvez utiliser les formules comme suit : =REMPLACER(REMPLACER(REMPLACER(B3;3;0;"-");6;0;"-");9;0;"-") =TEXTE(B3,"??-??-??-??? ") |
10.2 Ajouter des tirets aux nombres via Format de cellule
Pour ajouter directement des tirets aux nombres dans les cellules d'origine, vous pouvez utiliser la fonction Format de cellule.
1. Sélectionnez les nombres auxquels vous souhaitez ajouter des tirets, puis appuyez sur les touches Ctrl + 1 pour activer la boîte de dialogue Format de cellule.
2. Dans la boîte de dialogue Format de cellule, sous l'onglet Nombre, choisissez Personnalisé dans la section Catégorie.
3. Ensuite, à droite Type section, type ###-###-### dans la zone de texte, cliquez OK.
Les nombres sélectionnés ont maintenant des tirets ajoutés.
10.3 Ajouter des tirets au numéro de téléphone avec l'option Ajouter du texte de Kutools pour Excel
Si vous avez installé Kutools pour Excel dans Excel, la fonction Ajouter du texte peut également vous rendre service.
1. Sélectionnez les cellules contenant les nombres auxquels des tirets doivent être ajoutés, puis cliquez Kutools > Texte > Ajouter du texte.
2. Dans le Ajouter du texte dans la boîte de dialogue, tapez le tiret ou un autre séparateur dans Texte zone de texte, choisissez Préciser option, puis saisissez les positions où vous souhaitez ajouter des tirets et séparez-les par des virgules dans la zone de texte ci-dessous.
3. Cliquez sur OK ou Appliquer. Ensuite, des tirets ont été ajoutés aux nombres sélectionnés.
Téléchargement gratuit de Add Text pour un essai de 30 jours.
Supposons qu'il y ait une liste de nombres de différentes longueurs, et que vous souhaitiez ajouter des zéros au début pour les rendre de même longueur et obtenir un aspect net, comme le montre la capture d'écran ci-dessous. Voici deux méthodes proposées pour vous aider à réaliser cette tâche.
11.1 Ajouter des zéros non significatifs aux cellules avec la fonction Format de cellule
Vous pouvez utiliser la fonction Format de cellule pour définir un format personnalisé afin de fixer la longueur de la cellule en ajoutant des zéros non significatifs.
1. Sélectionnez les cellules auxquelles vous souhaitez ajouter des zéros en tête, puis appuyez sur les touches Ctrl + 1 pour activer la boîte de dialogue Format de cellule.
2. Dans la boîte de dialogue Format de cellule, sous l'onglet Nombre, choisissez Personnalisé dans la section Catégorie.
3. Ensuite, à droite Type section, type 0000 dans la zone de texte (pour fixer la longueur du nombre à 4 chiffres, tapez 0000, vous pouvez la modifier pour une autre longueur, par exemple 5 chiffres, tapez 00000), cliquez OK.
Ensuite, les nombres ont été ajoutés avec des zéros non significatifs et sont de la même longueur.
Attention : si la longueur des données d'origine dépasse la longueur définie, les données d'origine s'afficheront sans les zéros de tête. |
11.2 Ajouter des zéros non significatifs aux cellules avec une formule
Si vous ne souhaitez pas modifier les données d'origine, vous pouvez utiliser une formule pour ajouter des zéros en tête aux nombres dans d'autres emplacements.
Voici trois fonctions qui peuvent vous aider.
Fonction TEXT de Formule1
TEXTE(nombre,"00…")
Fonction DROITE de Formula2
DROITE("00…"&nombre,longueur)
Fonction BASE de Formula3
BASE(nombre,10,longueur)
Le nombre de zéros dans la formule est égal à la longueur du nombre.
Ici, vous définissez 4 chiffres comme la longueur des nombres, veuillez utiliser les formules ci-dessous :
=TEXTE(B10,"0000")
=DROITE("0000"&B10;4)
=BASE(B10,10,4)
Appuyez sur Entrer Appuyez et faites glisser la poignée de remplissage automatique vers le bas.
Attention : si la longueur des données d'origine dépasse la longueur définie, les données d'origine s'afficheront sans les zéros de tête. |
Si vous souhaitez ajouter des zéros à la fin des nombres pour leur donner une longueur fixe, par exemple en ajoutant des zéros à la fin des nombres dans les cellules B3:B7 pour les rendre à 5 chiffres comme le montre la capture d'écran ci-dessous, vous pouvez appliquer une formule pour traiter cette tâche.
Fonction REPT
nombre&REPT("0",longueur-NB_CAR(nombre))
Dans la formule, l'argument "nombre" représente le nombre ou la référence de cellule auquel vous souhaitez ajouter des zéros à la fin, et l'argument "longueur" est la longueur fixe souhaitée.
Veuillez utiliser la formule comme ceci :
=B3&REPT("0",5-LEN(B3))
Appuyez sur Entrer Appuyez et faites glisser la poignée de remplissage automatique vers le bas jusqu'aux cellules qui nécessitent cette formule.
Si vous souhaitez exporter ou copier des données d'une feuille de calcul vers un bloc-notes, les textes peuvent être disposés de manière désordonnée, car les valeurs des cellules ont des longueurs différentes. Pour les rendre bien alignés comme le montre la capture d'écran ci-dessous, vous devez ajouter des espaces en fin de texte.
Pour résoudre cette tâche, la fonction REPT peut vous rendre service.
GAUCHE(texte & REPT(" ",longueur_max),longueur_max)
Dans la formule, l'argument "texte" est le texte ou la référence de cellule auquel vous souhaitez ajouter un espace à la fin, et l'argument "longueur_max" est la longueur fixe que vous souhaitez donner aux textes, qui doit être supérieure ou égale à la longueur maximale des textes utilisés.
Pour ajouter un espace de fin aux textes dans les cellules B3:C6, veuillez utiliser la formule ci-dessous :
=GAUCHE(B3 & REPT(" ",10),10)
Appuyez sur la touche Entrée, puis faites glisser la poignée de recopie automatique vers toutes les cellules nécessitant cette formule.
Dans ce cas, comme le texte utilisé le plus long fait 9 caractères, nous utilisons 10 ici.
Parfois, vous devez ajouter des guillemets ou des crochets autour du texte ou des nombres dans les cellules, comme le montre la capture d'écran ci-dessous. Hormis la saisie manuelle un par un, voici deux méthodes dans Excel qui peuvent résoudre cela rapidement.
14.1 Ajouter des guillemets/crochets autour en utilisant Format de cellule
Si vous souhaitez ajouter des guillemets autour du texte dans les données d'origine, la fonction Format de cellule dans Excel peut vous aider.
1. Sélectionnez les cellules auxquelles vous souhaitez ajouter des guillemets, puis appuyez sur Ctrl + 1 pour activer la boîte de dialogue Format de cellule.
2. Dans le Format de cellule boîte de dialogue, sous Nombre onglet, choisissez Personnalisé à partir de la liste des Catégorie, puis allez dans la section de droite pour taper "''"@"''" dans le Type zone de texte. Cliquez OK.
Le texte dans les cellules sélectionnées a été entouré de guillemets.
Si vous souhaitez ajouter des parenthèses autour du texte, dans la zone de texte Type de la boîte de dialogue Format de cellule, utilisez (@).
14.2 Ajouter des guillemets/crochets autour des formules
Les formules peuvent également être utilisées pour ajouter des guillemets au texte dans d'autres cellules.
Utilisation du connecteur &
""""&texte&""""
Ou
car(34)&texte&car(34)
Dans ce cas, pour le texte dans la cellule B11, veuillez utiliser les formules suivantes :
=""""&B11&""""
Ou
=car(34)&B11&car(34)
Appuyez sur Entrer Appuyez et faites glisser la poignée de remplissage automatique vers le bas pour remplir les cellules.
Si vous souhaitez ajouter des parenthèses autour d'un texte, utilisez la formule comme suit : "("&text&")".
14.3 Ajouter des guillemets/crochets autour avec VBA
Si vous avez besoin de code VBA pour résoudre cette tâche, voici un exemple de code VBA.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications .
2. Ensuite, dans la fenêtre qui apparaît, cliquez sur Insérer > Module pour insérer un nouveau module vide.
3. Copiez et collez le code VBA ci-dessous dans le nouveau module.
VBA : Ajouter des guillemets autour des textes
Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub
Attention : dans le script de code, """" & Rng.Value & """" indique d'ajouter des guillemets "" autour des textes. Si vous souhaitez ajouter des parenthèses () autour du texte, changez-le en "(" & Rng.Value & ")". |
4. Appuyez sur F5 touche ou clic Exécuter bouton dans la fenêtre pour activer le code VBA. Une boîte de dialogue apparaît pour sélectionner les cellules auxquelles ajouter des guillemets.
5. Cliquez sur OK. Les guillemets ont maintenant été ajoutés autour des textes dans les cellules sélectionnées.
Parfois, pour aider d'autres utilisateurs à mieux comprendre les données, vous pouvez avoir besoin d'ajouter du texte dans les résultats des formules, comme le montre la capture d'écran ci-dessous. Pour inclure du texte dans une formule, vous pouvez utiliser des guillemets autour du texte et ajouter le connecteur & pour combiner le texte et la formule ensemble.
Cas 1 : ajouter du texte avant la formule
"Aujourd'hui, nous sommes "&TEXTE(AUJOURDHUI(),"jjjj, mmmm jj.")
Cas 2 ajouter du texte après la formule
TEXTE(MAINTENANT(),"HH:MM:SS") & " est l'heure actuelle."
Cas 3 : ajouter des textes des deux côtés de la formule
"Aujourd'hui vendu "&data&" kg."
Plus de tutoriels Excel : |
Combinez plusieurs classeurs/feuilles de calcul en un seul Diviser les cellules de texte, de nombre et de date (séparer en plusieurs colonnes) Combiner le contenu de plusieurs cellules sans perdre de données dans Excel Comparer deux colonnes pour les correspondances et les différences dans Excel |
Les meilleurs outils de productivité pour Office
Kutools pour Excel résout la plupart de vos problèmes et augmente votre productivité de 80 %
- Barre de formule avancée (éditez facilement plusieurs lignes de texte et de formules); Mode Lecture (lisez et éditez facilement un grand nombre de cellules); Coller dans une plage filtrée...
- Fusionner des cellules/lignes/colonnes tout en conservant les données; Diviser le contenu des cellules; Consolider des lignes en double et faire la somme/moyenne... Empêcher les doublons dans les cellules; Comparer des plages...
- Sélectionner des lignes en double ou uniques; Sélectionner des lignes vides (toutes les cellules sont vides); Super Recherche et recherche floue dans de nombreux classeurs; Sélection aléatoire...
- Copie exacte de plusieurs cellules sans changer les références de formule; Créer automatiquement des références vers plusieurs feuilles; Insérer des puces, des cases à cocher et plus encore...
- Ajouter et insérer rapidement des formules, des plages, des graphiques et des images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails...
- Extraire du texte, ajouter du texte, supprimer par position, supprimer des espaces; Créer et imprimer des statistiques de page; Convertir entre le contenu des cellules et les commentaires...
- Super Filtre (enregistrer et appliquer des schémas de filtre à d'autres feuilles); Tri avancé par mois/semaine/jour, fréquence et plus; Filtre spécial par gras, italique...
- Consolider des classeurs et feuilles de calcul; Fusionner des tables basées sur des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots de fichiers xls, xlsx et PDF...
- Regroupement dans les tableaux croisés dynamiques par numéro de semaine, jour de la semaine et plus... Afficher les cellules verrouillées/déverrouillées avec différentes couleurs; Mettre en évidence les cellules contenant des formules/noms...

- Activer l'édition et la lecture à onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrir et créer plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et réduit des centaines de clics de souris chaque jour !
