[RESOLU par Job75] : Une date exacte

Modeste geedee

XLDnaute Barbatruc

• 14 Décembre 2016

• #2

Bonsour®

MADAGASCAR à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 14 Décembre 2016

• #3

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

 

Pièces jointes

• 2.png

  26.4 KB · Affichages: 55

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Décembre 2016

• #4

Bonjour MADA, Modeste geedee,

Code:

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.

 

Dernière édition: 15 Décembre 2016

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 15 Décembre 2016

• #5

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Décembre 2016

• #6

Bonsour®

MADAGASCAR à dit:

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

Cliquez pour agrandir...

 

Pièces jointes

• Mada.xlsm

  20.2 KB · Affichages: 48

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 15 Décembre 2016

• #7

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Décembre 2016

• #8

Bonsoir MADA, job75, Modeste Geedee, le Forum

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

 

Pièces jointes

• Classeur1.xlsm

  16.6 KB · Affichages: 42

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 15 Décembre 2016

• #9

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

 

Vote positif 0 Vote négatif