Affecter un nombre d'années supplémentaire d'une textbox à une autre

[altinea]

Bonjour,
je souhaiterai pouvoir affecter un nombre d'années supplémentaire à la date inscrite dans une textbox.
J'ai fait cela manuellement de cellule à cellule ça fonction par contre je n'arrive pas à voir comment faire sur un usf et textbox, j'ai parcouru les forum et je n'ai pas trouvé exactement ce que je souhaitai, pouvez vous m'aider
merci
ci joint fichier pour une meilleure compréhension

 

[Dull]

Re : Affecter un nombre d'années supplémentaire d'une textbox à une autre

Salut altinea, le Forum

Peut-être comme cela et au plus vite

Private Sub TextBox1_AfterUpdate()
TextBox2.Value = CDate(TextBox1.Value) + 1095
End Sub

Bonne Journée

 

[altinea]

Re : Affecter un nombre d'années supplémentaire d'une textbox à une autre

Bonjour, Merci Dull pour ta formule, c'est tout à fait ce que je cherchais, bonne journée à toi

 

[Paf]

Re : Affecter un nombre d'années supplémentaire d'une textbox à une autre

bonjour à tous

une autre proposition :
Private Sub TextBox1_Exit....
TextBox2.Value = DateAdd("yyyy", 3, CDate(TextBox1.Value))

 

[altinea]

Re : Affecter un nombre d'années supplémentaire d'une textbox à une autre

Bonjour le Forum, Dull, Paf, merci pour vos réponses, cela fonctionne.
J'ai pour remplir la textbox date utilisé la macro complémentaire de mDF, jusque là pas de soucis.
Contrairement à l'inscription directe de la date dans la textbox, lorsque j'utilise la macro, il me faut me déplacer dans la textbox suivante pour que l’information apparaisse. alors qu’un inscrivant manuellement la date s’inscrit et est lisible de suite.
Y'a t'il une commande pour que dès que la date est mise dans la texbox1 avec la mDFCalendar, l'info apparaisse dans les textbox de réception.
J'ai mis un fichier avec la macro et le paramètrage afin de se rencre compte .
Merci de votre aide.

 

[Dull]

Re : Affecter un nombre d'années supplémentaire d'une textbox à une autre

Salut altinea, le Forum

Peut-être comme cela

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
mDFXLcalShow CalCtrl:=TextBox1, CalFormat:="dd/mm/yyyy", CalLang:="FR"
SendKeys "{ENTER}"
End Sub

Bonne Journée

 

[altinea]

Re : Affecter un nombre d'années supplémentaire d'une textbox à une autre

Bonjour Dull, le forum,
c'est impeccable
Merci Dull
bonne journée à toi et au Forum