Bonjour,
Je souhaite copier une date (se trouvant dans une cellule, dans une feuille spécifique) un nombre de fois défini, à partir de la cellule "B2" de ma "feuil3".
Jusque là, tout va bien pour moi, j'avais récupéré ce bout de code qui fonctionnait parfaitement pour une liste copier une liste un nombre de fois défini dans la première cellule vide de la colonne A.
Je voudrais pouvoir faire la même chose mais en copiant la date (définie en variable) x nombre de fois dans la colonne B et incrémenter cette date de +1 mois à chaque retour de boucle.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 nblin=Range("A800000").End(xlUp).Row Dim Copiage As Range, Dl As Long, x As Integer Set Copiage = Range("A2:A" & nblin) For x = 1 To 11 With Sheets("Feuil3") Dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 Copiage.Copy .Range("A" & Dl) End With Next x
Pourriez-vous m'aider ?
j'ai encore du mal avec les boucles ...
Partager