Discussion :

[alidroos]

Bonjour à tous

Je veux convertir la fonction suivante pour le code :

Code :

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

=IFERROR(IFERROR("  Points expirent après "&DATEDIF(TODAY();$B$25;"y")&" année, "&DATEDIF(TODAY();$B$25;"ym")&" mois et "&DATEDIF(TODAY();$B$25;"md")&" jour ";"  Résidence avaient été accomplies "&DATEDIF($B$25;TODAY();"y")&" année, "&DATEDIF($B$25;TODAY();"ym")&" mois et "&DATEDIF($B$25;TODAY();"md")&" jour ");"")

Merci d'avance

[Kimy_Ire]

1) Donner des explications de ta fonction auraient été plus simple.

2) Il y a une différence entre DateDif en Excel et DateDiff en VBA puisque les arguments que tu places dans ta fonction (qui sont "md" et "ym") n'existent pas.

3) La seule manière que j'ai eu de résoudre ce problème est de faire un Evaluate... Ce n'est pas conseillé mais ca fonctionne.

Voila donc le code que je te propose :

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
30
31
32
33
34
35
36
37
38
Sub diffdate()
Dim test As Range
Dim diff As Integer
Dim dest As Range
Dim dte As Date
Dim jr As Integer
Dim mo As Integer
Dim an As Integer
 
With Worksheets("Feuil4")
    Set test = .Range("A1")
    Set dest = .Range("C1")
    For i = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1
        If IsDate(test.Offset(i, 0)) Then
            diff = test.Offset(i, 0) - Date
            If diff < 0 Then
                jr = vbaDateDiff(Format(test.Offset(i, 0), "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "md")
                mo = vbaDateDiff(Format(test.Offset(i, 0), "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "ym")
                an = vbaDateDiff(Format(test.Offset(i, 0), "mm/dd/yyyy"), Format(Date, "mm/dd/yyyy"), "y")
                dest.Offset(i, 0) = "Résidence avaient été accomplies " & an & " année(s), " & mo & " mois et " & jr & " jour(s)."
            Else
                jr = vbaDateDiff(Format(Date, "mm/dd/yyyy"), Format(test.Offset(i, 0), "mm/dd/yyyy"), "md")
                mo = vbaDateDiff(Format(Date, "mm/dd/yyyy"), Format(test.Offset(i, 0), "mm/dd/yyyy"), "ym")
                an = vbaDateDiff(Format(Date, "mm/dd/yyyy"), Format(test.Offset(i, 0), "mm/dd/yyyy"), "y")
                dest.Offset(i, 0) = "Points expirent après " & an & " année(s), " & mo & " mois et " & jr & " jour(s)."
            End If
        End If
    Next i
End With
 
End Sub
 
 
Function vbaDateDiff(ByVal FirstDateCell As String, ByVal SecondDateCell As String, ByVal StringCode As String) As Long
    dte = FirstDateCell
    dte2 = SecondDateCell
    vbaDateDiff = Application.Evaluate("DATEDIF(DATEVALUE(""" & FirstDateCell & """),DATEVALUE(""" & SecondDateCell & """),""" & StringCode & """)")
End Function

Pas optimisé, mais fonctionne.
Remplace Feuil4, A1 et C1 par ce que tu veux.

Tiens moi au courant.

[alidroos]

Bonjour professeur Kimy_Ire

Je vous remercie beaucoup de code fonctionne efficacement