Comment ajouter ou insérer des caractères spécifiques tous les X caractères dans les cellules Excel

Dans Excel, ajouter des séparateurs comme des tirets ou des caractères spécifiques à intervalles réguliers dans des chaînes de texte peut être une tâche fastidieuse si elle est effectuée manuellement. Par exemple, insérer un tiret après chaque groupe de quatre caractères dans plusieurs cellules nécessite une approche efficace. Cet article propose deux solutions simples : utiliser du code VBA ou l'utilitaire Ajouter du texte de Kutools pour Excel pour insérer des caractères à intervalles fixes de manière fluide.

Insérer un certain caractère tous les x caractères dans une cellule avec du code VBA

Insérer un certain caractère tous les x caractères dans une cellule avec Kutools pour Excel

Insérer un certain caractère tous les x caractères dans une cellule avec du code VBA

Vous pouvez appliquer le code VBA suivant pour insérer un caractère spécifique après chaque groupe de quatre caractères dans les cellules, veuillez procéder comme suit :

1. Maintenez enfoncées les touches ALT + F11 dans Excel, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Insérer un certain caractère tous les x caractères dans une cellule

Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. Appuyez sur la touche F5 pour exécuter ce code. Une boîte de dialogue apparaîtra, vous demandant de sélectionner la plage de données où vous souhaitez insérer un caractère spécifique dans les chaînes de texte. Consultez la capture d'écran ci-dessous :

4. Cliquez sur OK, dans la boîte de dialogue suivante, entrez le nombre après lequel vous souhaitez insérer un certain caractère, voir capture d'écran :

5. Continuez en cliquant sur OK, et dans la boîte de dialogue suivante, entrez le caractère spécifique que vous souhaitez ajouter au texte, voir capture d'écran :

6. Cliquez sur le bouton OK, puis choisissez une cellule où vous souhaitez afficher le résultat dans la boîte de dialogue, voir capture d'écran :

7. Enfin, cliquez sur OK. Le caractère spécifié sera maintenant inséré dans chaque chaîne de texte après chaque groupe de quatre caractères. Consultez la capture d'écran ci-dessous :

Insérer un certain caractère tous les x caractères dans une cellule avec Kutools pour Excel

Le code VBA peut être difficile pour les débutants en Excel. Voici une alternative plus simple : Kutools pour Excel. En utilisant sa fonctionnalité Ajouter du texte, vous pouvez rapidement ajouter du texte ou des caractères spécifiques avant, après ou à des positions précises dans les valeurs des cellules.

1. Sélectionnez la plage de données où vous souhaitez insérer un caractère spécifique.

2. Ensuite, cliquez sur Kutools > Texte > Ajouter du texte, voir capture d'écran :

3. Dans la boîte de dialogue Ajouter du texte, spécifiez le caractère que vous souhaitez insérer dans le champ Texte. Sous la section Position, choisissez Spécifier et entrez les positions où le caractère doit être inséré. Vous pouvez prévisualiser le résultat dans le volet de droite. Consultez la capture d'écran ci-dessous :

Astuce : Ici, j'ai tapé 4,8,12 dans la zone de texte Spécifier, ce qui indique d'insérer le texte spécifique après le 4ème, 8ème et 12ème caractère de la chaîne de texte.

4. Cliquez ensuite sur le bouton Ok ou Appliquer, et le caractère spécifié sera inséré dans les valeurs des cellules aux positions spécifiées.

Cliquez ici pour en savoir plus sur cet utilitaire Ajouter du texte.

Démo : Insérer un certain caractère tous les x caractères dans une cellule avec Kutools pour Excel