OVH Cloud OVH Cloud

Incrementation en VBA

2 réponses
Avatar
Golem13
Bonjour .


Voila j'incremente des valeurs dans la colonne A à Partir de la cellule
A2

Le code VBA que me donne l'enregistreur de Macro donne :

Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "2"
Range("A2:A3").Select
Selection.AutoFill Destination:=Range("A2:A200")

Cela marche, mais comment regler automatiquement pour incrementer au
fur et à mesure que des données seront rajouter en colonne B, B201 ...

Il est possible de modifier par :
Selection.AutoFill Destination:=Range("A2:A2000")

Mais en aut oceal serait plus pratique .


Merci de tout coup de pouce .


@ +

2 réponses

Avatar
LSteph
Bonsoir Golem,
exemple sans macro en B2 à recopier vers bas:
=SI(B2<>"";SI(MAX(A$1:A1)<1;1;MAX(A$1:A1)+1);"")

lSteph

"Golem13" a écrit dans le message de news:

Bonjour .


Voila j'incremente des valeurs dans la colonne A à Partir de la cellule A2

Le code VBA que me donne l'enregistreur de Macro donne :

Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "2"
Range("A2:A3").Select
Selection.AutoFill Destination:=Range("A2:A200")

Cela marche, mais comment regler automatiquement pour incrementer au fur
et à mesure que des données seront rajouter en colonne B, B201 ...

Il est possible de modifier par :
Selection.AutoFill Destination:=Range("A2:A2000")

Mais en aut oceal serait plus pratique .


Merci de tout coup de pouce .


@ +




Avatar
Golem13
Bonsoir Golem,
exemple sans macro en B2 à recopier vers bas:
=SI(B2<>"";SI(MAX(A$1:A1)<1;1;MAX(A$1:A1)+1);"")

lSteph

"Golem13" a écrit dans le message de news:

Bonjour .


Voila j'incremente des valeurs dans la colonne A à Partir de la cellule A2

Le code VBA que me donne l'enregistreur de Macro donne :

Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "2"
Range("A2:A3").Select
Selection.AutoFill Destination:=Range("A2:A200")

Cela marche, mais comment regler automatiquement pour incrementer au fur et
à mesure que des données seront rajouter en colonne B, B201 ...

Il est possible de modifier par :
Selection.AutoFill Destination:=Range("A2:A2000")

Mais en aut oceal serait plus pratique .


Merci de tout coup de pouce .


@ +





Je prends note de cette formule .

Encore Merci .

@ +