Hello world,

Donc voilà, je débute en vba, et j'ai un petit problème, j'ai besoin de comparer 2 dates et de connaître le nombre d'année qui diffèrent des deux, j'en arrive à ce resultat.

Problème, c'est qu'il me dit qu'il y a une incompatibilité des types lors du forcage..

Help please, et merci !

Datedifference As Long
Dim Datefct As Date

Datefct = Format(TextBox3.Value, "dd mmmm yyyy") ou Datefct = CDate(TextBox3.Value)

Datedifference = TestDates

Function TestDates(pDate1 As Date) As Long

TestDates = DateDiff("d", pDate1, Date)

End Function

Bon, j'ai testé chez moi, j'ai une textbox et un bouton sur une userform, à toi d'adapter
Il faut entrer la date dans la textbox (qui s'appelle textbox3) puis cliquer sur le bouton

' Clic sur le bouton
Private Sub CommandButton1_Click()
Dim Datedifference As Long
Dim Datefct As Date

Datefct = Format(TextBox3.Value, "dd mmmm yyyy") 'ou Datefct = CDate(TextBox3.Value)

' Appel de la fonction
Datedifference = TestDates(Datefct)
' Affiche le résultat
MsgBox Datedifference
End Sub

' Fonction qui calcule l'écart entre une date de référence et une date donnée en paramètre
Function TestDates(pDate1 As Date) As Long
' Ici j'ai mis une date bidon
TestDates = DateDiff("yyyy", pDate1, "25/12/2010")
End Function

Si tu as des questions, je suis là jusqu'à 19h15

Note :
'ou Datefct = CDate(TextBox3.Value)
ne sert à rien dans le code

Je go testé ça merci.

Toujours cette incompatibilité de type à la ligne Datefct = Format...

Tu mets quels caractères de séparation pour la date ? Sur mon test, j'ai mis des '/'

Je faisais des test pour la gestion d'erreur avec un IsDate(Message), j'ai un peu bidouillé et ça marche, merci bcp !