incrément valeur selon variable

[Compal]

Bonjour à tous et merci d'avance à ceux qui se pencherons sur le sujet pour m'aider.

Je vous explique mon cas.

J'ai réussi a finaliser une macro permettant de dupliquer une ligne selon une variable. (merci au forum)
Cependant j'aurais aimer insérer dans mon code, un bout de code me permettant d'incrémenter une valeur de la ligne et ceci autant de fois que la variable indique de dupliquer la ligne.

Merci d'avance pour votre aide

 

[Staple1600]

Bonsoir le fil, le forum

@Compal
Et on teste nos propositions sur la tête à Matthieu? 🙄

Ou avec le code de ta macro posté dans ton message?
(voir mieux avec un petit fichier exemple et ton code VBA existant)

 

[Compal]

Bonjour Staple1600,

Merci dans un premier temps pour ton retour.

En effet avec un fichier cela serait beaucoup plus compréhensible.

Egalement voici le code que j'utilise actuellement pour dupliquer selon une variable.


Sub duplique()
Sheets(2).UsedRange.Clear
Set premier = Sheets(1).Cells(2, 1)
n = 0
While premier.Offset(n, 0) <> ""
nb = premier.Offset(n, 10)
Call copie(premier.Offset(n, 10), nb)
n = n + 1
Wend
End Sub

Sub copie(k, nb)

For n = 1 To nb
k.EntireRow.Copy Sheets(2).Range("a1")
Sheets(2).Range("a1").EntireRow.Insert
Next

End Sub