Accéder au contenu principal

Comment insérer un nombre spécifique de colonnes à des intervalles fixes dans Excel ?

Author: Zhoumandy Last Modified: 2025-05-27

Dans votre utilisation quotidienne d'Excel, vous pouvez rencontrer une situation où vous devez ajouter plus de colonnes entre les colonnes existantes. Vous pouvez bien sûr insérer les colonnes une par une en utilisant la fonction Insérer. Mais lorsque vous travaillez avec une grande quantité de données et que vous devez insérer trois colonnes après chaque seconde ou nième colonne, la fonction Insérer n'est apparemment pas efficace. Alors, comment pouvez-vous terminer rapidement cette tâche ? Dans ce tutoriel, nous parlerons de deux méthodes simples pour résoudre le problème.

Utiliser du code VBA pour insérer un nombre spécifique de colonnes vides dans une plage de données à intervalles fixes

Utiliser Kutools pour Excel pour insérer un nombre spécifique de colonnes vides dans une plage de données à intervalles fixes


Utiliser du code VBA pour insérer un nombre spécifique de colonnes vides dans une plage de données à intervalles fixes

Nous pouvons utiliser le "code VBA" ci-dessous pour insérer un nombre spécifique de colonnes vides après chaque nième colonne. Veuillez procéder comme suit.

1. Appuyez sur les touches "Alt + F11" dans Excel, ce qui ouvre la fenêtre "Microsoft Visual Basic for Applications".

2. Cliquez sur "Insérer" > "Module" et collez la macro suivante dans la fenêtre "Module".

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Appuyez sur la touche "F5" pour exécuter ce code. Une boîte de dialogue apparaît pour vous rappeler de sélectionner la "plage de données" dans laquelle vous souhaitez insérer des colonnes vides.
A screenshot showing a prompt to select a data range in Excel when using VBA to insert columns

4. Cliquez sur le bouton "OK". Une autre boîte de dialogue apparaît, veuillez entrer "le nombre d'intervalles de colonnes" dans la zone "Entrer l'intervalle de colonnes".
A screenshot showing a prompt asking for the column interval in VBA code to insert columns in Excel

5. Continuez à cliquer sur le bouton "OK". La troisième boîte de dialogue apparaît, veuillez spécifier "le nombre de colonnes que vous souhaitez insérer à chaque intervalle" dans la zone.
A screenshot showing a prompt asking how many columns to insert at each interval in VBA code in Excel

6. Cliquez sur le bouton "OK" pour obtenir le résultat.
A screenshot of the result showing inserted columns at fixed intervals in Excel after using VBA code


Utiliser Kutools pour Excel pour insérer un nombre spécifique de colonnes vides dans une plage de données à intervalles fixes

Si vous ne souhaitez pas utiliser la méthode du code VBA, la fonctionnalité "Insérer des lignes et des colonnes vides" de "Kutools pour Excel" est la solution parfaite pour vous. Avec cette fonctionnalité, vous pouvez insérer un nombre spécifique de colonnes dans une plage de données à intervalles fixes en quelques clics seulement.

Kutools pour Excel propose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, augmentant ainsi la créativité et l'efficacité. Intégré à des capacités d'IA, Kutools automatise les tâches avec précision, rendant la gestion des données facile et sans effort. Informations détaillées sur Kutools pour Excel...  Essai gratuit...

1. Sélectionnez d'abord la plage de données existante. Ensuite, cliquez sur "Kutools" > "Insérer" > "Insérer des lignes et des colonnes vides".
A screenshot showing the Kutools 'Insert Blank Rows & Columns' option in Excel

2. La boîte de dialogue "Insérer des lignes et des colonnes vides" apparaît. Vous pouvez voir la plage de données que vous avez sélectionnée à l'étape 1 affichée dans la zone Plage. Choisissez l'option "Colonnes vides" dans la section "Type d'insertion". Et spécifiez "le nombre d'intervalles de colonnes" et "les colonnes que vous souhaitez insérer à chaque intervalle". Ici, j'ai saisi 1 et 3 séparément.
A screenshot of the Kutools 'Insert Blank Rows & Columns' dialog box with options to specify column intervals and number of columns to insert

3. Cliquez sur le bouton "OK" pour terminer la configuration et obtenir le résultat.
A screenshot showing the final result after inserting columns using Kutools

Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant


Autres opérations (Articles)

Comment insérer rapidement une ligne basée sur la date actuelle dans Excel ?
Supposons qu'il y ait une feuille contenant une ligne avec des dates, et maintenant je veux insérer une ligne juste après la date actuelle qui changera automatiquement lors de l'ouverture du classeur chaque jour. Existe-t-il un moyen de résoudre cela dans Excel ?

Comment toujours insérer une ligne vide en dessous au lieu d'au-dessus dans Excel
Comme nous le savons tous, lors de l'insertion d'une ligne vide dans une feuille de calcul, la ligne vide sera toujours insérée au-dessus de la ligne ou de la cellule sélectionnée. Mais parfois, vous devrez peut-être insérer la ligne en dessous de la cellule ou de la ligne sélectionnée. Comment pourriez-vous résoudre ce problème dans Excel ?

Comment insérer automatiquement une nouvelle ligne vide via un bouton de commande dans Excel ?
Dans de nombreux cas, vous devrez peut-être insérer une nouvelle ligne vide dans une position spécifique de votre feuille de calcul. Dans cet article, nous vous montrerons comment insérer automatiquement une nouvelle ligne vide en cliquant sur un bouton de commande dans Excel.

Comment insérer une ligne vide après un texte spécifique dans Excel ?
Si vous souhaitez insérer des lignes vides après un texte spécifique comme indiqué dans la capture d'écran suivante, comment gérer cela rapidement et facilement sans avoir à les insérer manuellement une par une ?

Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionner l'analyse des données basée sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les Fonctions améliorées
Fonctionnalités populaires : Trouver, mise en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Consolider les colonnes ou les cellules sans perdre de données   |   Arrondir sans formule ...
Super RECHERCHEV : RECHERCHEV avec critères multiples    RECHERCHEV avec valeurs multiples  |   Recherche multi-feuilles   |   Correspondance floue ....
Liste déroulante avancée : Créer rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante multi-sélection ....
Gestionnaire de colonnes : Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages & colonnes ...
Fonctionnalités en vedette : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Crypter/Déchiffrer les cellules    Envoyer un e-mail par liste   |  Super Filtre   |   Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...) ...
Top15 ensembles d'outils12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...)   |   50+ types de graphiques (Diagramme de Gantt, ...)   |   40+ formules pratiques (Calculer lâge en fonction de la date de naissance, ...)   |   19 outils d'insertion (Insérer un code QR, Insérer une image depuis le chemin, ...)   |  12 outils de conversion (Convertir en mots, Conversion de devises, ...)   |  7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...)   |   ... et plus

Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la 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 facilite grandement 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 pour vous chaque jour !