Bonjour,

Je voudrais calculer le nombre de jour entre deux dates car dans ma base de données,j'ai une colonne date début et une date fin. En fonction du nombre trouvé je duplique la ligne autant de fois que le nombre et je rajoute + 1 à la date de la ligne dupliqué.
Ensuite j'utilise ces données dans un tableau dynamique.
J'ai réussi à le faire mais que pour 30 jour d'écart maximum.

J'ai aussi un bug d'insertion qui apparaît("La méthode insert de la classe range a échoué") alors qu'il marche très bien dans mes autres boucles,

Pouvez-vous m'aider s'il vous plaît ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Si la date et le mois son différent alors on calcule l'écart et on duplique autant que l'écart
If Day(Sheets("Base").Range("H" & ligne).Value) < Day(Sheets("Base").Range("K" & ligne).Value) And Month(Sheets("Base").Range("H" & ligne).Value) <> Month(Sheets("Base").Range("K" & ligne).Value) Then
    ajout = Day(Sheets("Base").Range("K" & ligne).Value) - Day(Sheets("Base").Range("H" & ligne).Value)
    ajoutF = 30 - ajout
    ajoutF = ajoutF + 2
    While ajoutF > 1
        Sheets("Base").Range("A" & ligne).EntireRow.Copy
        ' Ne prend pas d'insertion
        Sheets("Base").Range("A" & ligne).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        ligne = ligne + 1
        Sheets("Base").Range("J" & ligne).Value = Sheets("Base").Range("J" & ligne).Value + 1
        ajoutF = ajoutF - 1
    Wend
End If