Addition dans une texbox
Résolu/Fermé
jc80
Messages postés
4149
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 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 6 août 2015 à 16:15
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 6 août 2015 à 16:15
A voir également:
- Addition dans une texbox
- Formule addition excel - Guide
- Addition hexadecimal ✓ - Forum Programmation
- Bash addition ✓ - Forum Shell
- Addition et soustraction dans la même formule excel ✓ - Forum Excel
- [Bash]Impossible de faire une simple addition - Forum Shell
3 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
6 août 2015 à 15:51
6 août 2015 à 15:51
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
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
6 août 2015 à 15:14
6 août 2015 à 15:14
Bonjour,
Comme ceci:
A adapter aux textBox
Comme ceci:
MsgBox DateAdd("d", 15, "06/07/2015")
A adapter aux textBox
jc80
Messages postés
4149
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 422
6 août 2015 à 15:30
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
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
jc80
Messages postés
4149
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 422
6 août 2015 à 16:15
6 août 2015 à 16:15
Re
Ta solution est superbe.
Merci encore
Cordialement
Ta solution est superbe.
Merci encore
Cordialement
6 août 2015 à 16:03