c'est sure que c'est pas le contrôle du siècle, mais il fonctionne et à priori, il correspond à MES BESOINS. Si tu veux BIGBOSS9, tu peux l'améliorer et le publier, je crois que c'est la base d'un site comme VBFrance! Je ne suis pas un pro des contrôles utilisateur, j'avais un besoin et je n'est rien trouver de se genre. Toutefois, je prend bonne note de tes commentaires.

Oui effectivement, ca plante... je ne me suis pas arrêté la dessus quand j'ai développé l'application. Désolé

Merci AvengerFrance pour ton commentaire et un grand merci pour ta source aussi,
elle m'as été bien utile.

Très intéressante ta listview ! Je l'essaie avec grand plaisir

Renfield et clad49 ont raisons, mais pour être plus précis, j'utilise :

Dim ageEntier As Integer
Dim ageDecimal As Double

'Trouver l'âge de la personne avec des décimale
ageDecimal = vDateReference.Subtract(vDateNaissance).Days / 365.25
'Supprimer les décimales
ageEntier = CType(Math.Floor(ageDecimal), Integer)


ageEntier nous donne la bonne réponse.

désolé, l'autre post contenait des date nullable (dim vDateReference as date? )

Renfield et clad49 on raison, mais pour être plus précis, j'utilise :

Dim ageEntier As Integer
Dim ageDecimal As Double

'Trouver l'âge de la personne avec des décimale
ageDecimal = vDateReference.Value.Subtract(vDateNaissance.Value).Days / 365.25
'Supprimer les décimales
ageEntier = CType(Math.Floor(ageDecimal), Integer)


ageEntier nous donne la bonne réponse.

Svp pouvez-vous me donner une appréciation ?
:-)