copie incrémentée

[morgan44]

Bonjour,

Je voudrais faire une copie incrémentée sous VBA :

Dim i As Integer
For i = 1 To Sheets("INFO").Range("C23").Value
Sheets("récap circularisation").Range("A28").EntireRow.Insert
Next
End Sub

cette macro m'insère le nombre de ligne que je veux en fonction du résultat de la cellule c23 dans l'onglet "info".
Maintenant j'aimerais faire une macro qui fait une copie incrémentée de la cellule A27 de l'onglet "récap circularisation" (là où j'ai mis une formule) en fonction du nombre de ligne inséré (donnée récupéré dans la cellule c23 dans l'onglet "info").
Exemple : si la cellule c23 affiche 7 la macro copie de A27 jusqu'à A33.

Merci d'avance,

Cordialement,

Morgan

 

[tototiti2008]

Re : copie incrémentée

Bonjour Morgan44,

à tester :

Sheets("récap circularisation").Range("A27").AutoFill Destination:=Sheets("récap circularisation").Range("A27:A" & 26 + Sheets("INFO").Range("C23").Value), Type:=xlFillDefault

 

[morgan44]

Re : copie incrémentée

Merci beaucoup !

J'ai tester et ca marche très bien.

Bon week end

Morgan