Addition dans une texbox
Résolu
jc80
Messages postés
4243
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 4243 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
A voir également:
- Addition dans une texbox
- Addition excel - Guide
- Bash addition - Forum Programmation
- Addition et soustraction dans la même formule excel - Forum Excel
- Addition hectare are centiare excel - Forum Excel
- Excel convertir en hectare ! - Forum Excel
3 réponses
Comme ceci;
En cliquant dans la TextBox2 tu vois apparaître la nouvelle date
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
cs_Le Pivert
Messages postés
7904
Date d'inscription
Statut
Contributeur
Dernière intervention
729
Tu peux enlever cela:
Bonjour,
Comme ceci:
A adapter aux textBox
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
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
