KutoolsforOffice — Une solution unique, cinq outils puissants.Faire plus avec moins d'efforts.Soldes de mars : 20 % de réduction

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

AuteurXiaoyang Date de modification

Dans Excel, ajouter des séparateurs tels que des tirets ou d’autres caractères spécifiques à intervalles réguliers dans des chaînes de texte peut vite devenir fastidieux lorsqu’on le fait manuellement. Par exemple, insérer un tiret après chaque groupe de quatre caractères dans plusieurs cellules exige une méthode plus efficace. Cet article vous présente deux solutions simples : utiliser du code VBA ou l’utilitaire **Ajouter du texte** de Kutools pour Excel afin d’insérer facilement et rapidement des caractères à intervalles fixes.

Insérer un caractère spécifique tous les x caractères dans une cellule à l’aide d’un code VBA

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

Exemple d'insertion de caractères à chaque 4e position dans Excel

Insérer un caractère spécifique tous les x caractères dans une cellule à l’aide d’un 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 vos cellules. Voici la marche à suivre :

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

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

Code VBA : Insérer un caractère spécifique 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 s’affiche alors, vous invitant à sélectionner la plage de données dans laquelle vous souhaitez insérer un caractère spécifique au sein des chaînes de texte. Voir la capture d’écran ci-dessous :

Boîte de dialogue pour sélectionner la plage de données où insérer des caractères

4. Cliquez ensuite sur OK. Dans la boîte de dialogue suivante, saisissez le nombre de caractères après lesquels vous souhaitez insérer le caractère spécifique. Voir la capture d’écran :

Boîte de dialogue pour indiquer le nombre de caractères après lesquels effectuer l'insertion

5. Cliquez à nouveau sur OK. Dans la boîte de dialogue suivante, saisissez le caractère spécifique que vous souhaitez ajouter au texte. Voir la capture d’écran :

Boîte de dialogue pour saisir le caractère spécifique à insérer

6. Cliquez sur le bouton OK, puis choisissez une cellule où vous souhaitez afficher le résultat. Voir la capture d’écran :

Boîte de dialogue pour choisir une cellule destinée à afficher les résultats

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

Résultat de l'insertion de caractères après chaque 4e position dans les cellules Excel

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

Le code VBA peut s’avérer déroutant pour les débutants sous Excel. Voici une alternative bien plus simple : Kutools pour Excel. Grâce à sa fonctionnalité Ajouter du texte, vous pouvez insérer rapidement du texte ou des caractères spécifiques avant, après ou à des positions précises dans les valeurs des cellules.

Kutools pour Excelpropose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, stimulant ainsi créativité et efficacité.Intégré aux capacités de l’IA, Kutools automatise les tâches avec précision, rendant la gestion des données parfaitement fluide.Informations détaillées sur Kutools pour Excel...         Essai gratuit...

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

2. Cliquez ensuite sur Kutools > Texte > Ajouter du texte. Voir la capture d’écran :

Kutools for Excel Option Ajouter du texte dans le ruban Excel

3. Dans la boîte de dialogue Ajouter du texte, saisissez le caractère à insérer dans le champ Texte. Dans la section Position, sélectionnez Spécifier et indiquez les positions auxquelles le caractère doit être inséré. Vous pouvez prévisualiser le résultat dans le volet de droite. Voir la capture d’écran ci-dessous :

Aperçu de l'utilitaire Ajouter du texte dans Kutools for Excel montrant les positions spécifiées pour l'insertion

Conseils : ici, j’ai saisi 4, 8, 12 dans la zone de texte de Spécifier, ce qui signifie qu’il faut insérer le texte spécifique après le 4ᵉ, le 8ᵉ et le 12ᵉ caractère de la chaîne.

4. Cliquez ensuite sur le bouton OK ou Appliquer. Le caractère spécifié sera alors inséré dans les valeurs des cellules aux positions définies.

Données d'origine avant l'ajout des caractères spécifiésFlècheRésultat final de l'ajout de caractères à des positions spécifiques dans Excel

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

Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant

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

Kutools pour Excel: Plus de 300 outils pratiques à portée de main ! Profitez de fonctionnalités alimentées par l’IA pour travailler plus intelligemment et plus rapidement !Téléchargez dès maintenant !

Meilleurs outils de productivité Office

🤖Kutools IA Aide: Révolutionnez Analyse des données grâce à :Exécution intelligente   |  Générez du code|  Créez formules personnalisées  |  Analysez des données et générez des graphiques|  Appelez Fonctions améliorées…
Fonctionnalités populaires:Rechercher, mettre en surbrillance ou Marquer les doublons   |  Supprimer les lignes vides   |  Combinez les colonnes ou cellules sans perdre de données   |   Arrondi sans utiliser de formule...
Super RECHERCHEV:RechercheValeurs avec critères multiples  |  RechercheValeurs avec valeurs multiples  |   RechercheValeurs dans plusieurs feuilles   |   Correspondance floue....
Liste déroulante avancée:Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple....
Gestionnaire de colonnes:Ajouter un nombre précis de colonnes|Déplacer des colonnes|Basculer la visibilité des colonnes masquées|Comparer des plages et des colonnes...
Fonctionnalités vedettes:Mise au point de la grille   |  Vue de conception   |Barre de formule améliorée   | Gestionnaire de classeurs et de feuilles   |  Bibliothèque de ressources(Texte automatique)|  Sélecteur de date   |  Consolider les feuilles de calcul  |  Chiffrer/Déchiffrer les cellules   | Envoyer des e-mails par liste   |  Super Filtre   |   Filtre spécial(Filtrer les cellules avec une police en gras/italique/barré...) ...
… et bien plus encore… et plus encore:(,)Supprimer des caractères spécifiques, ...)|   50+Typesde graphiques(, ...)|   40+ Formules pratiques(Calculer l'âge en fonction de la date de naissance, ...)|   19 Outils d’insertion(,Insérer une image depuis un chemin , ...)|   de conversion (Convertir en mots,Conversion de devises, ...)|Fusionner et scinder   (Fusion avancée des lignes,Diviser les cellules , ...)|, ...)   |
Utilisez Kutools dans la langue de votre choix – disponible en anglais, espagnol, allemand, français, chinois et 40+ autres langues !

Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile

  • Activez l’édition 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é de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Tous les compléments Kutools. Un seul installateur

Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.

ExcelWordOutlookTabsPowerPoint
  • Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
  • Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
  • Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
  • Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
  • Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels