Intercaller ligne

[MARCOS13]

Bonjour,
je voudrais intercaller des lignes

une astuce merci j'ai environ 4000 lignes a intercaller

voici mon exemple

 

[mromain]

Re : Intercaller ligne

bonjour marcos

voici une solution :

Sub test()
Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
    For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
        .Cells(i, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
End With
End Sub

a+

 

[kjin]

Re : Intercaller ligne

Bonjour,

Sub inser()
For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
    Rows(i).Insert
Next
End Sub

A+
kjin

 

[MARCOS13]

Re : Intercaller ligne

pas comprendre
comment faire ???

 

[kjin]

Re : Intercaller ligne

Re,
Qu'est ce que tu ne comprends pas ?
Ton fichier en PJ
ALT+F11 pour voir le code
A+
kjin