Rapport de message :*
 

Re: Comment insérer et dupliquer des lignes

Titre du sujet : Re: Comment insérer et dupliquer des lignes
par myDearFriend! le 29/02/2012 00:28:46

Bonsoir bardav, bienvenue sur XLpages.com
Bonsoir Mytå,

Arf, je vois que l'ami Mytå est déjà passé (trop rapide pour moi, Mytå )...

Comme j'ai un peu travaillé sur le sujet avant de m'apercevoir de ton intervention, je dépose quand même ma façon de faire... Comme ça bardav aura l'embarras du choix !

DANS UN MODULE DE CODE STANDARD (ex: Module1)
Option Explicit

'myDearFriend!  -  www.mdf-xlpages.com
Sub DupliqueLignes()
Dim Lmax As Long, L As Long
    With Sheets(1)      'A adapter
        Lmax = .Cells(.Rows.Count, 1).End(xlUp).Row
        For L = Lmax To 1 Step -1
            With .Rows(L)
                .Copy
                .Offset(1, 0).Resize(2).Insert Shift:=xlDown
            End With
        Next L
    End With
    Application.CutCopyMode = False
End Sub

Cordialement,