Dupliquer les lignes selon un critère date

Bonjour à tous,

Je suis confronté à un blocage de connaissance sur excel

Je voudrais, par une macro, que chaque ligne de ma base de données (PJ) soit dupliquée en fonction de la colonne année jusqu’à 2020.

par exemple la ligne 1 contient la date 2011 j'aimerais que cette ligne soit dupliquée jusqu’à 2020 et ainsi de suite pour les autres lignes

Je vous remercie par avance

Bonne journée

Message en doublon

A clôturer

Bonjour bouben

voici une macro

vois si cela te convient

Sub Dupli()
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim DLig As Long, LigR As Long, Lig As Long
    Set Sh1 = Sheets("Feuil1")
    Set Sh2 = Sheets("Résultat")
    DLig = Sh1.Range("A65536").End(xlUp).Row
    LigR = 2
    For Lig = 2 To DLig
        Sh1.Rows(Lig).Copy Sh2.Rows(LigR)
        While Sh2.Cells(LigR, 5) < 2021
            Sh2.Rows(LigR).Copy Sh2.Rows(LigR + 1)
            Sh2.Cells(LigR + 1, 5) = Sh2.Cells(LigR + 1, 5) + 1
            LigR = LigR + 1
        Wend

    Next
End Sub

Bonne journée

Bonjour Patty,

Comme je l'ai précisé juste au-dessus, abdelalibouchha a posté 2 fois le même sujet.

https://forum.excel-pratique.com/viewtopic.php?f=2&t=137412

Dommage, nous avons fait le boulot en double

Bonne journée

Bouben

Bonjour Bouben

Je viens de voir ...posté 3 fois

Il devrait être sanctionné car comme tu dis on perd notre temps à faire tous la même chose

C'est inadmissible

Bonne journée à toi

Au bénéfice du doute, on parlera d'une erreur de manip ...

Bonne journée Patty !

Re Bouben

Toi de même

Bonsoir Patty5046 et Bouben,

Je vous remercie pour vos réponses,

Je suis vraiment désolé c'est mon PC qu'a bugger, j'arrivais pas à supprimer les posts en doublants

Bonne soirée à vous