Insérer une ligne en dessous basée sur la valeur de la cellule macro excel

Salut je suis totalement débutant, mais désireux d'apprendre. J'ai trouvé une macro dans ce forum à Insérez copié ligne en fonction de la valeur de la cellule. La macro ci-dessous insérer une ligne vide au-dessus de toute ligne qui a une valeur de "0" dans la colonne E, et il a presque m'aide. Au lieu de la ligne vide apparaît au-dessus de la ligne j'en ai besoin pour apparaître au-dessous à la place.Quelqu'un peut-il m'aider?.
Le code de la macro est:

Sub BlankLine()

    Dim Col As Variant
    Dim BlankRows As Long
    Dim LastRow As Long
    Dim R As Long
    Dim StartRow As Long

        Col = "E"
        StartRow = 1
        BlankRows = 1

            LastRow = Cells(Rows.Count, Col).End(xlUp).Row

            Application.ScreenUpdating = False

            With ActiveSheet
For R = LastRow To StartRow + 1 Step -1
If .Cells(R, Col) = "0" Then
.Cells(R, Col).EntireRow.Insert Shift:=xlDown
End If
Next R
End With
Application.ScreenUpdating = True

End Sub
InformationsquelleAutor user3789695 | 2014-06-30
  1. 3

    Modifier la ligne suivante à partir de:

    .Les Cellules(R, Col).EntireRow.Insert Shift:=xlDown

    à:

    .Les Cellules(R+1, Col).EntireRow.Insert Shift:=xlDown

    InformationsquelleAutor Steven Nelms
  2. 1

    Pertinent de vous remettre en question, de modifier une seule ligne de code original: au lieu de:

    .Cells(R, Col).EntireRow.Insert Shift:=xlDown

    utiliser celui-ci:

    .Cells(R, Col).EntireRow.Insert Shift:=xlUp

    Rgds,

    InformationsquelleAutor Alexander Bell