Calculer le nombre entre deux dates et problème d'insertion

Version imprimable

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:

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

Bonjour,

Pour connaitre le nombre de jours entre 2 dates, il suffit de les soustraire ... après quelques vérifications.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro1()
 
' Saisi 2 dates en cellules A1 et B1
' Lance la macro
 
Dim Date1, Date2 As Date
 
If IsDate(Format(Cells(1, 1).Value, "dd/mm/yyyy")) = True And IsDate(Format(Cells(1, 2).Value, "dd/mm/yyyy")) = True Then
 
Date1 = Cells(1, 1).Value
Date2 = Cells(1, 2).Value
 
    If Date1 <= Date2 Then
    MsgBox "Ecart entre les dates = " & Date2 - Date1 & " jour(s)"
    Else
    MsgBox "Date fin < date début"
    End If
 
Else
MsgBox "Format de dates incorrectes"
End If
 
End Sub

Super ! Merci mais j'ai essayé de le faire avec des variables mais en vain et je ne comprend où est mon erreur ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Macro1()
 
Dim Date1, Date2 As Date
Sheets("Feuil1").Activate
 DerniereLigne = Range("D" & Rows.Count).End(xlUp).Row
 
For ligne = 3 To DerniereLigne
 
If IsDate(Format("T", ligne).Value, "dd/mm/yyyy") = True And IsDate(Format("V", ligne).Value, "dd/mm/yyyy") = True Then
 
Date1 = Day(Sheets("Base").Range("T" & ligne).Value)
Date2 = Day(Sheets("Base").Range("V" & ligne).Value)
 ajout = Date2 - Date1
 End If
    If Date1 <= Date2 Then
      While ajout > 1
 
                Sheets("Base").Range("A" & ligne).EntireRow.Copy
                Sheets("Base").Range("A" & ligne + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                ligne = ligne + 1
 
              Sheets("Base").Range("U" & ligne).Value = Range("U" & ligne).Value + 1
            ajoutneg = ajoutneg - 1
            Wend
              End If
 
         Next ligne
 
End Sub

22/11/2018, 21h44
RyuAutodidacte
Bonsoir,

Citation:

j'ai une colonne date début et une date fin

Donc on fait Date de fin - Date de début
Démo Rapide :
Code:

1 2 3 4 5 6 Sub CaculDifDate() Dim Date1 As Date, Date2 As Date, Diff As Integer Date1 = "08/06/2018" Date2 = "22/08/2018" Diff = CDbl(Date2) - CDbl(Date1) End Sub
On peut aussi le faire via Evaluate : http://boisgontierjacques.free.fr/pa...e/evaluate.htm

Edit : Pour insérer tu peux faire en reprenant la variable Diff :

Code:

Sheets("NomDeLa Feuille").Rows(TaLigne).Resize(Diff).Insert ' ou Diff - 1 (selon ce que tu veux faire)
23/11/2018, 11h27
lycéen30

Merci à vous deux pour votre aide !
Bonne journée.