Date dans des textbox

Question

Bonjour je cherche de l'aide pour resoudre mon probleme
j'ai créé un formulaire dans lequel j'ai une textbox (TxtDateNaissance) , une seconde (TxtSaison) et une troisieme (TxtCategorie)
dans la TxtDateNaissance je rentre la date sous la forme jj/mm/yyyy (19/02/1967), dans la TxtSaison , la saison yyyy-yyyy (2020-2021) et je voudrais que dans la 3 eme TextBox (TxtCategorie) s'inscrive la categorie
si l'adherent à moins de 8 ans il est poussin
si l'adherent a entre 9 et 10 ans il est benjamin
si l'adherent a entre 11 et 12 ans il est Minime
si l'adherent a entre 13 et 14 ans il est Cadet
si l'adherent a entre 15 et 17 ans il est Junior
si l'adherent a entre 18 et 39 ans il est Senior
si l'adherent a40 et plus il est veteran
Merci pour votre aide

tenders_vba · Answer

Tu peux envoyer un fichier d'exemple ? Comme ça on a juste à rajouter la partie que tu désires.

Mais en soit tu as juste à partir des 2 premiers résultats de TextBox faire une soustraction et avec un Select Case mettre la catégorie associée.

Tu obtiendras quelques chose comme cela :

Naissance = TxtDateNaissance '19/02/1967
Saison = TctCategorie ' 2020 - 2021

Age = Left(Naissance, 4) - Year(Saison)
' Age = 1967 - 2020 = 53

Select Case True:
    Case Age <= 8:
        Categorie = "poussin"
    Case Age <= 10:
        Categorie = "benjamin"
    Case Age <= 12:
        Categorie = "Minime"
    Case Age <= 14:
        Categorie = "Cadet"
    Case Age <= 17:
        Categorie = "Junior"
    Case Age <= 39:
        Categorie = "Senior"
    Case Else:
        Categorie = "veteran"
End Select

TxtCategorie = Categorie   'Veteran dans notre exemple

En espérant t'avoir aidé ;)