Bonsour® Esox38 avec ferveur ;o))) vous nous disiez :

> Bonsoir,
>
> Depuis une semaine j'essaye de faire fonctionner la fonction suivante
> trouver dans un forum dans une UserForm avec 3 Textbox et un bouton
> pour lancer la fonction
>
> Function AGE(DateDebut As Date, DateFin As Date) As String
> Dim Elt As Long, D1 As Long, D2 As Long
> D1 = Int(DateDebut): D2 = Int(DateFin)
> Elt = Evaluate("DATEDIF(" & D1 & "," & D2 & ",""y""")
> AGE = Elt & IIf(Elt > 1, " ans, ", " an,") & Evaluate("DATEDIF(" &
> D1 & "," & D2 & ",""ym""") & " mois, "
> Elt = Evaluate("DATEDIF(" & D1 & "," & D2 & ",""md""")
> AGE = AGE & Elt & IIf(Elt > 1, " jours", " jour")
> End Function
>
> Macro sur le bouton :
> Public DateDebut As Date, DateFin As Date
>
> Private Sub CommandButton32_Click()
> DateDebut = TextBox186.Value
> DateFin = TextBox187.Value
> TextBox190.Value = AGE(DateDebut, DateFin)
> End sub
>
> Et lÃ*** j'ai un message d'erreur sur la ligne : Type incompatible
> (erreur 13) Elt = Evaluate("DATEDIF(" & D1 & "," & D2 & ",""y""")
> J'ai bien cherché Ã*** modifier les propriétés de mes variables mais
> rien Ã*** faire.
>
> Si vous avez une explication et/ou une solution merci d'avance.


D1 et D2 sont évalués comme étant des références de cellules
remplacer D1 et D2 respectivement par Ddeb et Dfin




--
--
***+
;o)))