Discussion :

[Tournament]

Bonjour,

je dois gérer un effectif sur 3 ou 4 ans
je connais la date d'entrée de la personne et sa date de sortie prévisionnelle.
Avec ces éléments, je crée dans le tableau les mois de l'année avec "1" quand la personne est présente et "0" quand elle n'est plus dans l'effectif.
J ai donc utilisé une formule de calcul date pour cela mais problème, il faut que je duplique la ligne du collaborateur autant de fois que les années où il est présent.
A partir du tableau j ai alors créer un TCD (mon fichier est un exemple mais le vrai fichier est plus long avec plus d'information ( 1100 salariés ) et le TCD est vraiment adapté

y aurait il un moyen de dupliquer ces lignes automatiquement en tenant compte des années de présence?

Merci d'avance pour votre aide

[Tournament]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Dim f, ln, lgn, n
 
Sub VersTCD()
    Application.ScreenUpdating = False
    Set f = Sheets("Feuil1")
    f.Range("A1").CurrentRegion.Offset(2, 0).Clear
    For ln = 3 To Range("A" & Rows.Count).End(xlUp).Row
        n = Year(Range("D" & ln)) - Year(Range("C" & ln)) + 1
        lgn = Application.Max(3, f.Range("A" & Rows.Count).End(xlUp)(2).Row)
        Range("A" & ln & ":R" & ln).Copy
        f.Range("A" & lgn & ":R" & lgn + 3).PasteSpecial xlPasteAll
    Next ln
    Application.CutCopyMode = False
    f.Select
End Sub

[Tournament]

j ai envoyé le code trop vite...

j ai testé mais en fait les copies se font avec la même année
l'idée étant de copier les éléments de la ligne mais en changeant les années dans la colonne F ( a partir de l'année d'entrée et l'année de sortie )

merci de votre attention