XL 2016 Copier coller plusieurs lignes en fonction d'une cellule

[Janis]

Bonsoir,

Je sollicite votre aide aujourd'hui car malgré plusieurs et différentes tentatives je n'arrive pas à réaliser la macro dont j'ai besoin.
J'aimerais créer une macro qui permette de dupliquer un groupe de lignes (lignes 17 à 22) à la suite autant de fois qu'un nombre indiqué dans la cellule A2.

La macro ci-dessous copie colle bien les lignes mais pas le nombre de fois indiquées dans la cellule A2 !!
Pourriez-vous m'indiquer où est l'erreur ?

Sub DUP()
Dim i As Integer
For i = 1 To Range("a2").Value

Rows("17:22").Copy Range("23:23" & i + 1)

Next i

End Sub

Je mets également le fichier en pièce jointe.
Merci par avance pour votre aide

 

[Phil69970]

Bonjour @Janis , le forum

Je te propose ce fichier

@Phil69970

 

[job75]

Bonsoir Janis, bienvenue sur XLD,

Bizarre cette duplication, ça sert à quoi ?

Mais bon a priori il suffit de ce code :

Sub a()
Application.DisplayAlerts = False
With [17:22]
    .Copy .Resize(([A2] + 1) * .Rows.Count)
End With
End Sub

Le résultat n'est pas fameux à cause des formules, à vous de voir

A+

 

[Janis]

Bonjour @Janis , le forum

Je te propose ce fichier

@Phil69970

Merci infiniment, Phil69970 !

 

[Janis]

Bonsoir Janis, bienvenue sur XLD,

Bizarre cette duplication, ça sert à quoi ?

Mais bon a priori il suffit de ce code :

Sub a()
Application.DisplayAlerts = False
With [17:22]
    .Copy .Resize(([A2] + 1) * .Rows.Count)
End With
End Sub

Le résultat n'est pas fameux à cause des formules, à vous de voir

A+

Bonsoir job75, merci beaucoup pour votre réponse.

Alors je cherche à créer des fiches de pointages.
Comme les salariés ont un nombre d'affectations différents, le nombre de lignes nécessaires par salarié est aussi différent.
La cellule A2 indique le nombre d'affectations du salarié, en allant chercher l'information dans une autre feuille.
Je souhaite que le nombre de lignes s'ajuste dès qu'on change de salarié.

Je ne pense pas que mon idée de dupliquer les lignes soit la meilleure mais pour le moment je ne vois pas d'autres solutions..

Voili voilou
Encore merci

 

[job75]

Je ne pense pas que mon idée de dupliquer les lignes soit la meilleure

Tant que cela créera des valeurs d'erreur ce ne sera pas une bonne solution.