Addition dans une texbox

Résolu/Fermé

jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 6 août 2015 à 14:51
jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 6 août 2015 à 16:15

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

A voir également:

Addition dans une texbox
Formule excel addition - Guide
Addition hectare are centiare excel - Forum Excel
Addition pourcentage excel ✓ - Forum Bureautique
Bash addition ✓ - Forum Shell
Addition et soustraction dans la même formule excel ✓ - Forum Excel

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
6 août 2015 à 15:51

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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
6 août 2015 à 16:03

Tu peux enlever cela:

Dim Valeur As Byte

 Valeur = Len(TextBox1)

Réponse 2 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
6 août 2015 à 15:14

Bonjour,

Comme ceci:

MsgBox DateAdd("d", 15, "06/07/2015")

A adapter aux textBox

jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424
6 août 2015 à 15:30

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

Réponse 3 / 3

jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424
6 août 2015 à 16:15

Re

Ta solution est superbe.
Merci encore
Cordialement

Discussions similaires

[shell] Comment additionner des valeurs

Soustraire et additioner dans une même formule

Addition en bash

[bash]Impossible de faire une simple addition

Addition et soustraction dans une même cellule