Comment empêcher Excel de numéroter automatiquement les en-têtes « Colonne en double » dans un tableau ?

Dans Excel, lorsque vous saisissez un en-tête de colonne en double dans un tableau, un numéro est automatiquement ajouté (par exemple : nom, nom1, nom2), et ce numéro ne peut pas être supprimé, comme le montre la capture d’écran ci-dessous. Pour éviter cette numérotation automatique des en-têtes de colonne en double, ajoutez simplement un espace final à chaque en-tête dupliqué. Le code VBA suivant vous permet de répéter ces en-têtes tout en y ajoutant automatiquement des espaces invisibles, les rendant ainsi distincts tout en conservant une apparence identique.

Ajouter automatiquement Espaces après à l’en-tête

Remarque : les méthodes présentées dans ce tutoriel ont été testées sous Excel 2021 ; des différences mineures peuvent toutefois exister selon la version d’Excel utilisée.

1. Saisissez les en-têtes que vous souhaitez répéter dans une colonne, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module pour créer un nouveau module dans la fenêtre Microsoft Visual Basic pour Applications, puis copiez-collez le code ci-dessous.

VBA : Répéter et ajouter Espaces après

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. Cliquez sur le bouton Exécuter dans le ruban ou appuyez sur la touche F5 pour exécuter le code. Dans la première boîte de dialogue, sélectionnez les en-têtes à répéter, puis cliquez sur OK.

4. Dans la deuxième boîte de dialogue, saisissez le nombre de répétitions souhaité, puis cliquez sur OK.

5. Sélectionnez la cellule dans laquelle vous souhaitez insérer les en-têtes répétés, puis cliquez sur OK.

Les en-têtes ont désormais été répétés et complétés par des espaces à la suite.

6. Sélectionnez les en-têtes, puis copiez-les en appuyant sur Ctrl + C. Collez-les ensuite dans le tableau concerné en appuyant sur Ctrl + V.

Le tableau affiche désormais des en-têtes de colonne en double, sans numérotation.

Libérez la magie d’Excel avec Kutools IA

• Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
• formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
• Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
• Interprétation de formules : Décryptez facilement les formules complexes.
• Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.

Améliorez vos capacités Excel grâce à des outils alimentés par l’intelligence artificielle.Téléchargez dès maintenantet découvrez une efficacité inégalée !

---

Les meilleurs outils de productivité bureautique

Kutools pour Excel résout la majorité de vos problèmes et augmente votre productivité de 80 %

• Super Barre de formule (modifiez facilement plusieurs lignes de texte et de formules) ; Mode Lecture (lisez et modifiez aisément un grand nombre de cellules) ; Coller dans Plage de filtrage...
• Fusionner des cellules, lignes ou colonnes tout en conservant les données ; diviser le contenu des cellules ; combiner les lignes en double avec somme ou moyenne… empêcher les doublons dans les cellules ; comparer des plages…
• Sélectionner les doublons ou les éléments uniques dans les lignes ; Sélectionner les lignes vides (toutes les cellules sont vides) ; Super Recherche et recherche floue dans de nombreux classeurs ; sélection aléatoire…
• Copiez plusieurs cellules sans modifier les références de formule ; créez automatiquement des références vers plusieurs feuilles ; insérez des puces, des cases à cocher et bien plus encore…
• Favoris et insertion rapide de formules, plages, graphiques et 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 les caractères à une position donnée, supprimer les espaces ; créer et imprimer les statistiques de la page de données ; convertir le contenu des cellules en commentaires et inversement...
• Super Filtre (enregistrez et appliquez des schémas de filtre à d’autres feuilles) ; Tri avancé par mois, semaine, jour, fréquence, etc. ; Filtre spécial par gras, italique…
• Combinez plusieurs classeurs et feuilles de calcul en un seul ; fusionnez des tableaux à partir d’une colonne clé ; répartissez vos données dans plusieurs feuilles ; convertissez en lot vos fichiers xls, xlsx et PDF…
• Regroupement dans un tableau croisé dynamique par numéro de semaine, jour de la semaine et bien plus encore…Afficher les cellules non verrouillées et verrouiller la sélection avec des couleurs distinctes ;Mettre en surbrillance les cellules contenant une formule ou un nom défini…

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

---

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 évite des centaines de clics de souris chaque jour !

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