XL 2016 Incrementer une colonne en VBA

Claudy · 25 Juillet 2020

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

VB:

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

Mais évidemment ça bugge!
Merci ,
Claudy

Patrice33740 · 25 Juillet 2020

Bonjour,

Ton code était presque bon :

VB:

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

job75 · 25 Juillet 2020

Bonjour Claudy,

VB:

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

A+

Patrice33740 · 25 Juillet 2020

Bonjour,

Ton code était presque bon :

VB:

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

Claudy · 25 Juillet 2020

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

Patrice33740 · 25 Juillet 2020

Claudy à dit:
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).

XL 2016 Incrementer une colonne en VBA

Claudy

XLDnaute Accro

Patrice33740

job75

XLDnaute Barbatruc

Patrice33740

XLDnaute Impliqué

Claudy

XLDnaute Accro

Patrice33740

XLDnaute Impliqué

Discussions similaires