Code pour insertion de plusieurs lignes après chaque cellule

Bonjour,

Je ne m'y connais pas vraiment en VBA, en général je copie colle des codes et ça marche très bien.

Sauf que dans ce cas, j'ai trouvé un code pour insérer une ligne après chaque cellule, et ce que j'aimerai faire c'est insérer plusieurs lignes, disons 5 entre chaque cellule de départ. Est ce possible de simplement modifier le code que j'ai ou faut il un code complètement différent?

Merci pour vos réponses

B0ut.

Option Explicit

Public Sub Add_Row_After_Each_Cell_in_Selection()

Dim Addr As Variant

Dim Split1 As Variant

Dim Split2(1) As Variant

Dim sCount1 As Integer

Dim sCount2 As Integer

sCount2 = 0

'First we get the address

Addr = Selection.Address

'First we split with ":"

Split1 = Split(Addr, ":")

'Then we split with "$"

For sCount1 = 0 To 1

Split2(sCount2) = Split(Split1(sCount1), "$")

sCount2 = sCount2 + 1

Next sCount1

'The result is

'Split2(0)(1)=Beginning Column

'Split2(0)(2)=Beginning Row

'Split2(1)(1)=Ending Column

'Split2(1)(2)=Ending Row

'Now we will add to every row of a selection a new blank row

Dim intRowNr As Variant

For intRowNr = Split2(1)(2) To Split2(0)(2) Step -1

Rows(intRowNr).Select

Selection.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove

Next intRowNr

End Sub

J'ai trouvé ce code grâce à la video youtube : http://www.youtube.com/watch?v=eJ4_kUMyaWA

Bonjour,

D'après ce que j'ai compris....

Essaie ce code :

Sub insert_lig()
Dim DerLig As Long, I As Long
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
For I = DerLig To 3 Step -1
    Rows(I).Resize(5).Insert
Next I
End Sub

Si ce n'est pas cela, joins un fichier exemple, avec ce que tu as, et ce que tu désires

Bon courga

Merci pour ta réponse ! c'est quasiment ça, ça marche pour toutes les lignes sauf la première :s

re-,

Tu modifies la valeur (3 dans l'exemple) :

For I = DerLig To 3 Step -1

J'avais supposé que tu avais une ligne de titres....

C'est parfait ! merci beaucoup !