[RESOLU par Job75] : Une date exacte

[MADAGASCAR]

Bonsoir tout le monde
SVP mes chers si vous pouver m'aider a realiser ce code
Dans TextBox1 j'ecris ma date de naissance
Alors dans TextBox2 s'affichera la date exacte lorsque mon age sera 60 ans
Merci d'avance pour l'aide
Amicalement
MADA

 

[Modeste geedee]

Bonsour®

Bonsoir tout le monde
SVP mes chers si vous pouver m'aider a realiser ce code
Dans TextBox1 j'ecris ma date de naissance
Alors dans TextBox2 s'affichera la date exacte lorsque mon age sera 60 ans
Merci d'avance pour l'aide
Amicalement
MADA

If DateSerial(Year(cDate(TextBox1))+60, Month(cDate(TextBox1)), Day(cDate(TextBox1)))=Int(Now) Then TextBox2=Int(Now) Else TextBox2=""

 

[MADAGASCAR]

Bonsoir Modeste Geedee
Merci 1000 fois pour l'aide mais j'ai pas pu mettre ce code dans l'ordre correcte
Regardez svp cette image
Amicalement
MADA

 

[job75]

Bonjour MADA, Modeste geedee,

Private Sub TextBox1_Change()
If IsDate(TextBox1) Then TextBox2 = DateAdd("yyyy", 60, CDate(TextBox1)) Else TextBox2 = ""
End Sub

Edit : on peut ne pas mettre CDate.

Bonne journée.

 

[MADAGASCAR]

Bonjour JOb75
Ravi .. tres ravi de vous rencontrer dans ce sujet
Tres gentil de votre part .. merci pour l'aide et pour votre super et formidable solution
Maintenant ca fonctionne tres tres bien
Formidablement resolu
Amicalement
MADA

 

[Modeste geedee]

Bonsour®

Bonsoir Modeste Geedee
Merci 1000 fois pour l'aide mais j'ai pas pu mettre ce code dans l'ordre correcte
Regardez svp cette image
Amicalement
MADA

 

[MADAGASCAR]

Bonjour Modeste Geedee
Bravo .. ça oui c'est super bravo une autre fois
Merci beaucoup pour l'aide
Cordialement
MADA

 

[Lone-wolf]

Bonsoir MADA, job75, Modeste Geedee, le Forum 🙂

@MADA: désolé pour le retard. Un exemple personnalisé. Double-clique sur la feuille.

 

[MADAGASCAR]

Bonsoir cher Lone-wolf
J'accepte et j'adore vos cadeaux meme apres une annees
Merci pour ce super fichier
Du fond du coeur encore merci
Amicalement
MADA