Insérer une ligne après chaque autre ligne dans la sélection, Excel VBA

Utilisez ce code lorsque vous souhaitez insérer une ligne vide après chaque ligne de la plage sélectionnée.
‘Ce code insère une ligne après chaque ligne de la sélection

Sub InsertAlternateRows()
Dim rng As Range
Dim CountRow As Integer
Dim i As Integer
Set rng = Selection
CountRow = rng.EntireRow.Count
For i = 1 To CountRow
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Next i
End Sub

De même, vous pouvez modifier ce code pour insérer une colonne vide après chaque colonne de la plage sélectionnée.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
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