incrémentation

[hokuto]

j aimerais avoir une incrémentation automatik sur excel

en gros des que je tape sur entrée excel numérote 1, 2 ,3...

est ce possible?

 

[Staple1600]

en A1 saisir 1
en A2 saisir 2

sélectionner les deux cellules
puis recopie vers le bas

Avec l'enregistreur de macro:
(pour aller de 1 à 100)
Sub Macro1()
Application.ScreenUpdating = False
'ligne ci-dessus rajoutée
Range('A1').Select
ActiveCell.FormulaR1C1 = '1'
Range('A2').Select
ActiveCell.FormulaR1C1 = '2'
Range('A1:A2').Select
Selection.AutoFill Destination:=Range('A1:A100'), Type:=xlFillDefault
End Sub

 

[_Thierry]

Bonjour Hokuto, Staple, le Forum

Une autre approche par boucle VBA toute simple :

Option Explicit

Sub Incrementation()
Dim i As Integer, ii As Integer
Dim L As Integer, C As Integer

ii = Application.InputBox('Nombre Maxi ?', 'Incrémentation Auto', Type:=1)

    With ActiveCell
        L = .Row
        C = .Column
    End With

    For i = 1 To ii
        Cells(L + i - 1, C) = i
    Next

End Sub

Par contre tu pourras affecter cette macro à une Touche Clavier quelconque (Menu Outil Macro puis Option) mais pas sur la touche [Enter]... Sinon il faudriat voir avec OnKey, mais c'est déconseillé... On peut aussi attribuer ce code à une Macro évènementielle (Click Droit etc)

Bon App
@+Thierry