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.
Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant
Démo : Insérer un certain caractère tous les x caractères dans une cellule avec Kutools pour Excel
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels