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.

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

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.

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

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.

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.

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

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.

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.

Outre la fonction Ajouter du texte, Kutools pour Excel propose plus de 300 autres fonctionnalités utiles qui peuvent vous aider dans différentes tâches sous Excel. Téléchargez dès maintenant la version d'essai gratuite.

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.

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.

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.

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.

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.

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.

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.

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

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."

---

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...

En savoir plus... Essai gratuit de 30 jours avec toutes les fonctionnalités... Acheter... 

---

Office Tab - apporte l'interface à onglets à Office et rend votre travail beaucoup plus facile

• 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 !

En savoir plus... Essai gratuit de 30 jours avec toutes les fonctionnalités... Acheter...