Discussion :

[Ventura76]

Bonjour à tous,

J'écris nouveau défi pour vous car personnellement, mon QI n'est pas suffisant (pas encore)

J'ai un fichier produit à fréquence élevée dans lequel une liste de personne apparait avec une date de début, une date de fin et un nombre de jours entre ces deux dates. (exemple ci-dessous):

Nom	Prénom	Date debut	Date	fin Nb de jours
Nom1	Prenom1	2020-03-23	2020-03-27	4
Nom2	Prenom2	2020-03-23	2020-03-25	2

Mon souhait serait de faire une boucle à travers le fichier pour que si le nombre de jours dépasse 1, une ligne soit ajoutée pour chaque journée avec la date de cette journée. En sachant que l'on parle d'un fichier de plusieurs dizaines de milliers de lignes et qu'il ne faut pas que l'ajout écrase la donnée des lignes en dessous (exemple ci-dessous)

Nom	Prénom	Date	début Date fin	Nb de jours
Nom1	Prenom1	2020-03-23	2020-03-23	1
Nom1	Prenom1	2020-03-24	2020-03-24	1
Nom1	Prenom1	2020-03-25	2020-03-25	1
Nom1	Prenom1	2020-03-26	2020-03-26	1
Nom1	Prenom1	2020-03-27	2020-03-27	1
Nom2	Prenom2	2020-03-23	2020-03-23	1
Nom2	Prenom2	2020-03-24	2020-03-24	1

Si quelqu'un à un bout de code magique pour m'aider, ça m'aiderait bien

Merci et bonne journée

[ARTURO83]

Bonjour,

Essayez ceci

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
18
Sub Recopie()
    Dim i As Long, J As Long, DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = DerLig To 2 Step -1
        If Cells(i, "E") <> 1 Then
            For J = Cells(i, "E") To 1 Step -1
               Cells(i, "D") = Cells(i, "C")
               Cells(i, "E") = 1
               Range(Cells(i, "A"), Cells(i, "E")).Copy
               Range(Cells(i + 1, "A"), Cells(i + 1, "E")).Insert Shift:=xlDown
               Cells(i + 1, "C") = Cells(i, "C") + J
               Cells(i + 1, "D") = Cells(i, "D") + J
               Cells(i + 1, "E") = 1
            Next J
        End If
    Next i
End Sub

Cdlt

[Ventura76]

Magique!

Merci beaucoup, Je ne me sens pas plus intelligent mais content de palier à mon ignorance grace à vous et ce forum.