Colonne d'insertion Excel VBA

Dans Excel, si nous voulons insérer une colonne, il existe plusieurs façons de le faire. Nous pouvons cliquer à droite et sélectionner Insérer une colonne dans la liste du menu déroulant ou utiliser simultanément les touches Ctrl + Maj + Plus (+). Mais que se passe-t-il si nous automatisons également ce processus en créant une macro via VBA? Cela est très utile lorsque nous travaillons sur la création d'une macro d'une énorme structure de codage ou sur l'ajout d'une colonne ou de plusieurs colonnes, ce qui est également une tâche à effectuer. VBA a une colonne entière et la fonction d'insertion est utilisée pour insérer une nouvelle colonne.

Comment insérer une colonne dans Excel VBA?

Nous allons apprendre à insérer une colonne dans Excel en utilisant du code VBA avec quelques exemples.

Vous pouvez télécharger ce modèle Excel de colonne d'insertion VBA ici - Modèle Excel de colonne d'insertion VBA

Exemple # 1 - Colonne d'insertion VBA

Nous avons un tableau de 2 colonnes et 11 lignes comme indiqué ci-dessous. Nous allons maintenant automatiser le processus d'insertion de colonnes de différentes manières.

Pour cela, suivez les étapes ci-dessous:

Étape 1: Insérez d'abord un nouveau module dans VBA, à partir de l'option de menu Insérer comme indiqué ci-dessous.

Étape 2: Maintenant, démarrez une sous-catégorie avec le nom de la fonction exécutée comme VBA Insert Column ou avec tout autre nom comme indiqué ci-dessous.

Code:

 Sub VBAColumn1 () End Sub

Étape 3: Sélectionnez d'abord la plage de cellules ou les colonnes complètes dans lesquelles nous voulons insérer une colonne suivie de la commande Insérer, comme indiqué ci-dessous. La commande Insérer permet d'insérer n'importe quelle ligne ou colonne ou cellule dans la colonne ou cellule Range sélectionnée.

Code:

 Sub VBAColumn1 () Range ("B: B"). Insert End Sub

Étape 4: Sélectionnez maintenant la plage de cellules comme référence à partir de laquelle nous voulons insérer une colonne comme indiqué ci-dessous.

Code:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4") End Sub

Étape 5 : Comme expliqué dans l'explication, nous utiliserons la colonne entière avec la fonction Insérer comme indiqué ci-dessous. Cela permettra à la colonne d'être insérée.

Code:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4"). FullyColumn.Insert End Sub

Étape 6: compilez maintenant le code en appuyant sur la touche de fonction F8, puis cliquez sur le bouton Lecture pour exécuter le code complet qui se trouve sous la barre de menu, comme indiqué ci-dessous. Nous remarquerons entre la colonne1 et la colonne2, deux nouvelles colonnes vides seront insérées comme indiqué ci-dessous.

Exemple # 2 - Colonne d'insertion VBA

Il existe une autre méthode pour insérer une colonne. Cette méthode comprend une combinaison de diverses commandes.

Étape 1: insérez un nouveau module dans le menu Insertion.

Étape 2: Et écrivez une sous-catégorie au nom de la fonction exécutée comme indiqué ci-dessous ou sous tout autre nom.

Code:

 Sub VBAColumn2 () End Sub

Étape 3: À l'aide de la variable de dimension DIM avec n'importe quel alphabet ou nom, définissez-la comme Plage, disons Colonne, comme indiqué ci-dessous.

Code:

 Sub VBAColumn2 () Dim Column As Range End Sub

Étape 4: Maintenant, en suivant la plage, utilisez une fonction Set avec une colonne de dimension définie comme indiqué ci-dessous, suivie du signe égal («=»).

Code:

 Sub VBAColumn2 () Dim Column As Range: Set Column = End Sub

Étape 5: Utilisez maintenant la fonction Application qui est VBA intégrée avec une plage définie de la colonne B complète.

Code:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") End Sub

Étape 6: Utilisez maintenant la variable Column avec la fonction Insert, comme indiqué ci-dessous.

Code:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert End Sub

Étape 7: Nous pouvons déplacer pour insérer une colonne dans la direction droite ou gauche à l'aide de la commande Shift. Normalement, la colonne est insérée dans la direction droite toujours à partir de la cellule ou de la colonne sélectionnée de référence.

Code:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub

Étape 8: Enfin, sélectionnez le format de référence d'origine à droite ou en dessous qui est pour la colonne ou la ligne en fonction du type d'insertion.

Code:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Étape 9: Maintenant, c'est terminé. Nous pouvons compiler le code et l'exécuter. Nous verrons une nouvelle colonne entre Colum1 et Column2 sera ajoutée comme indiqué ci-dessous.

Exemple # 3 - Colonne d'insertion VBA

Cet exemple est une autre façon la plus simple d'insérer une colonne dans VBA.

Étape 1: insérez un nouveau module

Étape 2: ajoutez une sous-catégorie au nom de la colonne d'insertion VBA, comme illustré ci-dessous.

Code:

 Sub VBAColumn3 () End Sub

Étape 3: Sélectionnez d'abord la colonne ou la référence de cellule à laquelle nous voulons ajouter une colonne à l'aide de Sélectionner, comme indiqué ci-dessous.

Code:

 Sub VBAColumn3 () Colonnes ("B: B"). Sélectionnez End Sub

Étape 4: Sur la deuxième ligne, utilisez la commande Sélection avec la fonction Insérer comme indiqué ci-dessous.

Code:

 Sub VBAColumn3 () Columns ("B: B"). Sélectionnez Selection.Insert End Sub

Étape 5: Enfin, sélectionnez la position où nous voulons décaler la nouvelle colonne insérée, à droite ou à gauche à l'aide de la fonction Shift. Le choix de placer une nouvelle colonne est entièrement à la demande de l'individu.

Code:

 Sub VBAColumn3 () Columns ("B: B"). Sélectionnez Selection.Insert Shift: = xlToRight End Sub

Étape 6: Ceci complète notre code. Maintenant, nous pouvons compiler le code pour trouver s'il y a une erreur. Si aucune erreur n'est trouvée, exécutez le code. Nous verrons qu'une nouvelle colonne sera ajoutée entre la colonne1 et la colonne2 comme indiqué ci-dessous.

Exemple # 4 - Colonne d'insertion VBA

Dans cet exemple, nous apprendrons comment ajouter de nouvelles colonnes après chaque colonne déjà debout.

Étape 1: Insérez maintenant un module à partir du menu d'insertion.

Étape 2: Après cela, ajoutez une sous-catégorie au nom de la colonne d'insertion VBA avec une séquence de nombres.

Code:

 Sub VBAColumn4 () End Sub

Étape 3: Utilisez maintenant DIM pour définir une variable dans n'importe quel nom. Nous avons utilisé la colonne comme entier (dans le cas où des nombres sont utilisés)

Code:

 Sub VBAColumn4 () Dim Column As Integer End Sub

Étape 4: Dans une colonne après chaque colonne remplie debout, nous sélectionnerons et utiliserons la colonne (2) pour ajouter une nouvelle colonne comme indiqué ci-dessous.

Code:

 Sub VBAColumn4 () Dim Column as Integer Columns (2) .Select End Sub

Étape 5: Ouvrez une boucle For-Next, où nous écrirons les conditions pour insérer une colonne l'une après l'autre comme indiqué.

Code:

 Sub VBAColumn4 () Dim Column as Integer Columns (2) .Select for Next End Sub

Étape 6: Comme nous n'avons que 2 colonnes dans nos exemples de données, nous ne pouvons donc ajouter qu'une nouvelle colonne de ces colonnes uniquement. Nous utilisons donc une plage de 0 à 2 colonnes de séquence.

Code:

 Sub VBAColumn4 () Dim Column as Integer Columns (2) .Select For Column = 0 To 2 Next End Sub

Étape 7: À l'aide de la fonction ActiveCell, utilisez toute la colonne pour insérer comme indiqué ci-dessous.

Code:

 Sub VBAColumn4 () Dim Column as Integer Columns (2) .Select For Column = 0 To 2 ActiveCell.EntireColumn.Insert Next End Sub

Étape 8: À l'aide de la fonction ActiveCell, utilisez Offset pour placer la colonne nouvellement ajoutée. Nous utilisons la position 0 et 2.

Code:

 Sub VBAColumn4 () Dim Column as Integer Columns (2) .Select For Column = 0 To 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) .Select Next End Sub

Étape 9: compilez maintenant le code et exécutez-le, si aucune erreur n'a été trouvée. Nous verrons, après la colonne1 et la colonne2, de nouvelles colonnes sont ajoutées.

Avantages de la colonne d'insertion Excel VBA

  • Il est utile pour ajouter rapidement une nouvelle colonne dans n'importe quelle plage de cellules.
  • Il est facile à implémenter même si la structure du code est énorme.
  • Si nous travaillons sur un énorme code, une nouvelle colonne devient nécessaire pour compléter le code, l'utilisation des exemples ci-dessus rendra la tâche facile.

Choses dont il faut se rappeler

  • Si vous utilisez l'exemple-4, n'oubliez pas de sélectionner la plage de colonnes jusqu'à ce que le tableau soit applicable.
  • L'enregistrement du fichier en macro permet Excel, enregistre le code.
  • Insérez uniquement les colonnes applicables et obligatoires pour éviter que des colonnes inutiles ne soient ajoutées.

Articles recommandés

Ceci est un guide pour insérer une colonne VBA. Ici, nous expliquons comment insérer une colonne dans Excel à l'aide du code VBA ainsi que des exemples pratiques et un modèle Excel téléchargeable. Vous pouvez également consulter nos autres articles suggérés -

  1. Fonction VBA VLOOKUP
  2. Fonction DCOUNT dans Excel
  3. Collage de copie VBA
  4. Fonction COMBIN dans Excel

Catégorie:

VBA