Insertion de lignes

[galeopsis]

Bonjour le forum !

Ma requête est simple : j'ai actuellement un tableau de 600 lignes de données. Et je voudrais sous chaque ligne insérer 11 nouvelles lignes, vierges. Alors bien sûr je pourrais faire la manipulation à la main, mais ça requerrait 6600 clics, donc j'aimerais autant essayer de le faire sous Visual Basic.

Je connais très (très) mal le langage de Visual Basic, est-ce que quelqu'un pourrait m'aider ?...
Merci !!

(Ma configuration : Excel 2007)

 

[Cousinhub]

Re : Insertion de lignes

Bonsoir,

essaie ce code :

Sub insertion()
Application.ScreenUpdating = False
For i = [A65000].End(xlUp).Row To 2 Step -1
    Rows(i).Resize(11).Insert
Next i
End Sub

 

[galeopsis]

Re : Insertion de lignes

Wow O_ô

Super, rapide, efficace, parfait !! C'est exactement ce que je voulais !!
Merci mille fois, ce forum est magique !