Remplir les cellules avec des nombres séquentiels dans une macro Excel (2003)

Sub FillASeries()

    With Sheet1.Range("a1")
        .Value = -500
        .AutoFill .Resize(1501, 1), xlFillSeries
    End With

End Sub

Je ne pense pas qu'il y ait une seule fonction, mais je ne peux pas faire plus court que la procédure.

Ce que vous recherchez n'est pas une fonction.

Tapez -500 dans A2 et tapez "Ctrl+Enter" (cela accepte le nombre et sélectionne la cellule).

Allez ensuite dans le menu "Edition" --> "Remplissage" --> "Série"

Régler la "Série dans" sur "Colonnes"

Régler la "valeur d'arrêt" à 1000

Cliquez sur "OK" et vous obtiendrez le résultat souhaité.

Sub Test()

    Call NumberSeriesI(Sheet1.Range("A1"), "MySeries", -1000, 500, 1)

End Sub

Sub NumberSeriesI(StartCell As Range, Header As String, FirstN As Integer, LastN As Integer, StepN As Integer)

' Integer version

    Dim i As Integer ' Value
    Dim r As Integer ' row

    StartCell.Cells(1).Value = Header ' Cells(1) makes sure it only uses the first cell of passed-in range,
                                        ' in case you pass in a multi-celled range for StartCell
    i = FirstN
    r = 1

    Application.ScreenUpdating = False ' Much faster, so the screen is not refreshed until all the values in place

    For i = FirstN To LastN Step StepN
        StartCell.Cells(1).Offset(r, 0).Value = i
        i = i + StepN
        r = r + 1
    Next i

    Application.ScreenUpdating = True

End Sub ' NumberSeriesI