Incrémentation VBA aide (For to next)

[Soleil11]

Bonjour le forum,

Mon problème est le suivant lorsque je veux automatiser une incrémentation de 1 à xxxx avec la limite de cellule qui se trouve à coté en colomne 4 le compteur commence à 2 en cellule P2 et j'aimerais qu'il commence à 1 to xxxx.

Comment puis-je modifier ce code afin qu'il commence à 1 to xxx et non à 2 to xxx ?

Sub Incrementalvalue()

Dim c As Long

Dim Limit As Long

Limit = Cells(Rows.Count, 4).End(xlUp).Row

For c = 2 To Limit

Cells(c, 16) = c

Next c

End Sub

Merci de votre aide.

Soleil11😕

 

[TempusFugit]

Re : Incrémentation VBA aide (For to next)

Bonjour


Si j'ai bien compris
Voici une façon de faire n'utilisant pas une boucle (For / Next)

Sub Macro1()
Dim Limit As Long
Limit = Cells(Rows.Count, 4).End(xlUp).Row
Range("P2") = 1
Range("P2").Resize(Limit).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=Limit, Trend:=False
End Sub

 

[Papou-net]

Re : Incrémentation VBA aide (For to next)

Bonjour Soleil11,

Peut-être tout simplement comme ceci :

For c = 1 To Limit

Mais, ai-je bien compris la question?

Cordialement.

Edit : bonjour TempusFugit (bien ta réponse)

 

[Soleil11]

Re : Incrémentation VBA aide (For to next)

Rebonjour,

La première méthode proposée sans boucle fonctionne à merveille. Entre temps, j'ai trouvé aussi la solution j'ai juste changé le code par rapport à l'incrémentation du code, ci-dessous le changement.

Cells(c, 16) = c - 1

Merci encore à tout le forum.

Soleil11.