Discussion :

[lycéen30]

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

[Cachlab]

Bonjour,

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

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
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

++

[lycéen30]

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

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
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

[RyuAutodidacte]

Bonsoir,

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 :

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

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 :

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

Sheets("NomDeLa Feuille").Rows(TaLigne).Resize(Diff).Insert ' ou Diff - 1 (selon ce que tu veux faire)

[lycéen30]

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