je vous contacte pour un petit problème de nombre entier.
je fais en sorte de calculer le nombre de jours entre 2 dates, selon la ligne, et la condition de - d'1 an affichant le message "moins d'un an",
l'autre faisant en sorte de calculer le nombre d'années.
le problème étant de faire ressortir le nombre entier, et non pas un 2.0023553 ans par exemple...
Dim x As Variant
x = x + 1
If x > 0 Then
x = ((Feuil9.Cells(2, 8).Value) - (Feuil4.Cells(y, 5).Value)) 'age vl en jour
If x < 365 Then
UserForm13.TextBox27.Value = "moins d'un an"
End If
If x > 364 Then
UserForm13.TextBox27.Value = x / 365
End If
End If