Rapport de message :*
 

Re: Ajouter une ligne a intervalle régulier.

Titre du sujet : Re: Ajouter une ligne a intervalle régulier.
par myDearFriend! le 09/01/2010 20:35:04

Re,

Dans un module de code standard (ex : Module1), la procédure VBA suivante à coller.
Lancer ce traitement après avoir sélectionné la bonne feuille de calcul concernée :
Sub InsereLign()
'myDearFriend!  -  www.mdf-xlpages.com
Dim Plage As Range
Dim L As Long
    Application.ScreenUpdating = False
    Set Plage = Rows(6)
    For L = 11 To 2250 Step 5
        Set Plage = Application.Union(Plage, Rows(L))
    Next L
    Plage.Insert Shift:=xlDown
    Application.ScreenUpdating = True
    MsgBox "Insertion terminée !"
End Sub

Cordialement,