Insérer plusieurs lignes, Excel VBA

Sub InsertMultipleRows()
Dim i As Integer Dim j As Integer ActiveCell.EntireRow.Select On Error GoTo Last
i = InputBox ( "Enter number of columns to insert”, "Insert Columns")
For j = 1 To i
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub End Sub

Avec ce code, vous pouvez entrer plusieurs lignes dans le
feuille de travail. Lorsque vous exécutez ce code, vous pouvez entrer le
nombre de lignes à insérer et assurez-vous de sélectionner la cellule
d’où vous voulez insérer les nouvelles lignes. Si tu veux
pour ajouter des lignes avant la cellule sélectionnée, remplacez le
xlToDown à xlToUp dans le code.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x