macro pour afficher une echeance

bonjour neodiv,

on peux le faire sans macro,

=MIN((A1:A10)-AUJOURDHUI())

à valider avec ctrl + shift + enter

ou en vba

Sub Macro1()
Selection.FormulaArray = "=MIN((A1:A10)-TODAY())"
End Sub

isabelle

bonsoir j ai besoin d une macro qui compare des dates
dans differente cellule et qui affiche la premiere a
arriver a echeace
mais je ne sais pas comment faire
merci de votre aide

Bonsoir,

S'il n'y a pas de doublons:
=SOMMEPROD((Dates=MIN(Dates))*Dates)

Autrement:
=INDEX(Dates;MIN(SI(Dates=MIN(Dates);LIGNE(Dates)))-MIN(LIGNE(Dates))+1)

Si Dates contient des dates d'anniversaire (différentes années), avise.

Salutations,

Daniel M.

"neodiv" <anonymous@discussions.microsoft.com> wrote in message
news:000601c3c011$c9331110$a501280a@phx.gbl...

bonsoir j ai besoin d une macro qui compare des dates
dans differente cellule et qui affiche la premiere a
arriver a echeace
mais je ne sais pas comment faire
merci de votre aide

Autrement:
=INDEX(Dates;MIN(SI(Dates=MIN(Dates);LIGNE(Dates)))-MIN(LIGNE(Dates))+1)

Ou plus simplement: :-))
=MIN(Dates)

Daniel M. (qui croit qu'il y a des dates d'anniversaires là-dessous, à suivre)