Nombres entiers et multiples en VBA

Salut le forum,

comment vérifier dans un code (VBA) si un nombre est un entier et s'il est, par exemple, un multiple de 4 ou de 100?

annee = YEAR(DATE)

if annee = nombre entier then...

if annee = multiple de 4 then...

Merci pour vos suggestions.

Salut le forum

Les trois conditions

If annee = Int(annee) Then MsgBox "Entier"
If annee Mod 4 = 0 Then MsgBox "Divisible par 4"
If annee Mod 100 = 0 Then MsgBox "Divisible par 100"

Mytå

Merci infiniment Myta