Addition dans une texbox
Résolu
jc80
Messages postés
5063
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 5063 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 5063 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai en textbox1 une date, en textbox2 je souhaiterais obtenir la date de: textbox1 + 15jours .
Je ne sais pas si cela est réalisable, si oui comment?
Merci pour votre aide
Cordialement
J'ai en textbox1 une date, en textbox2 je souhaiterais obtenir la date de: textbox1 + 15jours .
Je ne sais pas si cela est réalisable, si oui comment?
Merci pour votre aide
Cordialement
3 réponses
-
Comme ceci;
Private Sub TextBox1_Change() Dim Valeur As Byte TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox Valeur = Len(TextBox1) If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then TextBox1 = TextBox1 & "/" End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2 = DateAdd("d", 15, TextBox1) End Sub
En cliquant dans la TextBox2 tu vois apparaître la nouvelle date
-
Bonjour,
Comme ceci:
MsgBox DateAdd("d", 15, "06/07/2015")
A adapter aux textBox
-
Bonjour
Merci pour ton aide
Je ne vois pas bien ou adapter le code que tu m'as donné.
Ci-dessous la textbox ou je dois avoir le total de la textbox Remis le +15 jours
Private Sub T_Relance1_Change()
Dim Valeur As Byte
T_Relance1.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(T_Relance1)
If Valeur = 2 Or Valeur = 5 Then T_Relance1 = T_Relance1 & "/"
End Sub
Crdlt
-
-
Re
Ta solution est superbe.
Merci encore
Cordialement
