XL 2016 Incrementer une colonne en VBA

[Claudy]

Bonjour,
quel code pour incrémenter une colonne en VBA?
J'ai essayé ceci:

    Range("A2") = "1"
    Range("A3") = "2"
    Range("A2:A15").Select
    
    Selection.AutoFill Destination:=Range("A2:A15"), Type:=xlFillDefault

Mais évidemment ça bugge!
Merci ,
Claudy

 

[job75]

Bonjour Claudy,

[A2] = 1
[A2:A15].DataSeries

A+

 

[Patrice33740]

Bonjour,

Ton code était presque bon :

    Range("A2") = 1
    Range("A3") = 2
    Range("A2:A3").AutoFill Destination:=Range("A2:A15"), Type:=xlFillDefault

 

[Claudy]

OK , merci,
Mais je t'avoue que je préfère la simplicité du code de Job.
Merci quand même,
Claudy

 

[Patrice33740]

OK , merci,
Mais je t'avoue que je préfère la simplicité du code de Job.
Merci quand même,
Claudy

Bien sûr..
J'ai simplement voulu te montrer les 3 erreurs que tu as fait pour éviter que tu recommences :
- 1 au lieu de "1" pour affecter le nombre
- inutile d'utiliser .Select (et donc Selection) pour effectuer un Autofill (et la majorité des opérations)
- appliquer l'autofil à partir de la plage initiale (A2:A3).