XL 2013 INCREMENTATION

[pascalpetanque]

Bonsoir,
Je cherche le code pour incrémenter une série dans une colonne.
Exemple: en entrant le chiffre 20 dans A1, la série de 1 a 20 s'incrémente dans la colonne B.
Merci de votre aide

 

[sylvanu]

Bonsoir pascalpetanque,
En PJ un ex, on spécifie le début la fin et l'incrément désiré avant l'appui sur GO avec :

Sub Increment()
    Dim i%, c%
    If [Fin] < [Début] Or [Incrément] = 0 Then Exit Sub
    [B:B].ClearContents: c = 1
    For i = [Début] To [Fin] Step [Incrément]
        Range("B" & c) = i
        c = c + 1
    Next i
End Sub

 

[pascalpetanque]

Merci beaucoup, mais serai t il possible de n'avoir pas le zero ?

 

[sylvanu]

Re,
Quel 0 ?
Si début =1 alors B1=1.

 

[sylvanu]

Le seul 0 que je vois est le test de l'incrément.
Dans ce cas regardez la PJ Feuil2 c'est votre demande exacte avec :

Sub Increment2()
    Dim i%
    [B:B].ClearContents
    For i = 1 To [A1]
        Range("B" & i) = i
    Next i
End Sub

 

[job75]

Bonsoir pascalpetanque, sylvanu,

Voyez le fichier joint et cette macro évènementielle dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'désactive les évènements
With [A1] 'cellule à adapter
    If Target.Address = .Address Then .Select
    .Value = Application.Min(Application.Max(1, Int(Val(.Text))), Rows.Count - .Row + 1)
    Application.ScreenUpdating = False
    .Offset(, 1) = 1
    .Offset(, 1).Resize(.Value).DataSeries
    If .Value <= Rows.Count - .Row Then .Offset(, 1).Offset(.Value).Resize(Rows.Count - .Value - .Row + 1).ClearContents 'RAZ en dessous
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Entrez n'importe quoi en A1… De préférence un nombre entier…

A+