Comment empêcher la numérotation automatique des en-têtes de colonnes en double dans un tableau Excel ?

Dans Excel, lorsque vous saisissez un en-tête de colonne en double dans un tableau, un numéro est automatiquement ajouté sous forme de suffixe, comme 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 colonnes en double dans un tableau, vous pouvez ajouter des espaces après à l'en-tête en double. Voici un code VBA qui peut vous aider à répéter l'en-tête et à ajouter automatiquement des espaces après pour les différencier tout en les faisant apparaître identiques.

Ajout automatique d'espaces après aux en-têtes

Remarque : les méthodes présentées dans ce tutoriel ont été testées dans Excel 2021, il peut y avoir quelques différences selon les versions d'Excel.

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

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

VBA : Répéter et ajouter des 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 Exécuter  le bouton dans le ruban ou appuyez sur F5 pour activer le code. Dans la première boîte de dialogue qui apparaît, sélectionnez les en-têtes que vous souhaitez répéter. Cliquez OK.

4. Dans la deuxième boîte de dialogue qui apparaît, saisissez le nombre de répétitions souhaité. Cliquez OK.

5. Sélectionnez une cellule où vous souhaitez afficher les en-têtes répétés. Cliquez OK.

Les en-têtes ont maintenant été répétés et des espaces après ont été ajoutés.

6. Sélectionnez les en-têtes et copiez-les en appuyant sur Ctrl + C, puis collez-les dans le tableau souhaité en appuyant sur Ctrl + V.

Vous pouvez maintenant voir que le tableau contient des en-têtes de colonnes en double sans numérotation.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

---

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