Savoir si c'est la fin du mois

Bonjour,

A partir d'une date sous le format suivant: "01/02/2013" je cherche une fonction qui me renvoie vraie si c'est la fin du mois ( Ici janvier) et non sinon.

utilisation possible

If findumois(date) then ' ne rentre que si c'est la fin d'un mois de l'année

end if  

Merci d'avance

Bonjour!

Un solution non-VBA :

=A1=FIN.MOIS(A1;0)

Cordialement

Bonjour

Un truc simple

Sub test()
Dim LaDate As Date

  LaDate = CDate("27/02/2013")

  If Month(LaDate + 1) <> Month(LaDate) Then
    MsgBox "C'est la fin du mois"
  End If
End Sub

Avec une fonction

Function FinDuMois(LaDate As Date) As Boolean
  Application.Volatile
  If Month(LaDate + 1) <> Month(LaDate) Then
    FinDuMois = True
  End If
End Function

Utilisation de la fonction

=SI(findumois(A1);"Oui";"Non")

J'ai trouvé une astuce pas "trop propre" mais qui marche, je fais:

if not month(date)=month(date+1) then ' alors nous sommes en fin de mois

end if 

sa marche

ps:month(date) renvoie un integer entre 1 et 12

ah ben même solution ^^

Merci beaucoup !

Bonne journée à vous !