Insertions de lignes

Question

Bonjour, 

Je voulais savoir s'il était possible de rajouter sur excel par exemple 4 lignes toutes les deux lignes? C'est à dire espacer les insertions de lignes.


Configuration: Windows 7 / Safari 536.11

eljojo_e · Answer

Bonjour,

Oui c'est possible : 

Sub Macro1()

Dim a As Integer

For a = 1000 To 1 Step -1

    Rows(a & ":" & a).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
a = a - 1
Next
End Sub


à la place de 1000, tu met la ligne (la ligne la plus situé vers le bas de ton fichier) où tu veux que l'insertion commence.

Insertions de lignes

1 réponse

Discussions similaires

Newsletters