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

Bonsoir Janis, bienvenue sur XLD,

Bizarre cette duplication, ça sert à quoi ?

Mais bon a priori il suffit de ce code :
Le résultat n'est pas fameux à cause des formules, à vous de voir

A+

Phil69970 à dit:

Bonjour @Janis , le forum

Je te propose ce fichier

@Phil69970

Cliquez pour agrandir...

Merci infiniment, Phil69970 !

job75 à dit:

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

A+

Cliquez pour agrandir...

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

Janis à dit:

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

Cliquez pour agrandir...

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