XL 2019 Insertion de lignes simples

patty58

XLDnaute Occasionnel

• 4 Janvier 2022

• #2

Bonjour

Essaie cela :

VB:

Sub Ajout_Lignes()
DLig = Range("A65536").End(xlUp).Row
L = 2
For ind = 1 To DLig
    For iCpt = 0 To 3
        Rows(L & ":" & L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next iCpt
    L = L + 5
Next

End Sub

Bonne soirée

 

Vote positif 0 Vote négatif

Solution

bambi

XLDnaute Occasionnel

• 4 Janvier 2022

• #3

Merci beaucoup @patty58
C'est parfait, tu me fais gagner un temps précieux
Très bonne soirée

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 4 Janvier 2022

• #4

Bonsoir @bambi , @patty58 ,

Je l'ai fait, je le joins. Patty58 a été plus rapide

VB:

Option Explicit

Sub essai()
Dim i As Long
With Sheets("Feuil1")
i = 1
    Do While Cells(i, 1) <> ""
        .Rows(i + 1).Resize(4).Insert Shift:=xlDown
    i = i + 5
    Loop
End With
End Sub

Bonne soirée.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 4 Janvier 2022

• #5

Bonsoir le forum
Bonsoir bambi, bonsoir patty58, bonsoir cp4

patty58 & cp4 : Petit plus , une petite ligne à ne pas oublier pour éviter le scintillement dû à l'exécution de la macro :
Application.ScreenUpdating = False
Et surtout, rétablir en fin de macro
Application.ScreenUpdating = True

Bonne soirée à toutes & à tous

@+ Eric c

 

Vote positif 0 Vote négatif

bambi

XLDnaute Occasionnel

• 5 Janvier 2022

• #6

Merci @cp4 et @Eric C

 

Vote positif 0 Vote négatif