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

Janis

XLDnaute Nouveau
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 :)
 

Pièces jointes

  • Feuilles de pointages.xlsm
    35.5 KB · Affichages: 18

job75

XLDnaute Barbatruc
Bonsoir Janis, bienvenue sur XLD,

Bizarre cette duplication, ça sert à quoi ?

Mais bon a priori il suffit de ce code :
VB:
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 :rolleyes:

A+
 

Janis

XLDnaute Nouveau
Bonsoir Janis, bienvenue sur XLD,

Bizarre cette duplication, ça sert à quoi ?

Mais bon a priori il suffit de ce code :
VB:
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 :rolleyes:

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 :)
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
129