incrémentation

H

hokuto

Guest
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Réponses
6
Affichages
690

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh