Sujet Précédent Sujet Suivant

Calcul entre textbox excel vba

Résolu/Fermé
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - Modifié le 18 juin 2019 à 13:55
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 18 juin 2019 à 17:10
Bonjour,

Un Textbox1 est alimenté par un DTPicker1

Je souhaite que dans le textbox4, un calcul s'opère :

= Textbox1.value + Textbox3.value

exemple : TextBox= 3 pour (3 jours)

Textbox1=18/06/2019 Textbox4 devrait être =21/06/2019


Merci d'avance pour votre aide !



Configuration: Windows / Internet Explorer 11.0
A voir également:

3 réponses

Réponse 1 / 3
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
18 juin 2019 à 15:11
bonjour à tous,
une autre approche : 
Private Sub TextBox2_AfterUpdate()
    Dim IntervalType As String
    Dim number As Integer
    Dim debut As Date, fin As Date

    IntervalType = "d"
    number = TextBox2.Value
    debut = TextBox1
    fin = DateAdd(IntervalType, number, debut)
    TextBox3.Value = fin

End Sub
1
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
18 juin 2019 à 16:33
Merci fabien25000,

J'ai reproduis, copier-coller en rajoutant un texbox2 = ok

Le nombre de jours à rajouter est en dur dans TextBox4... pour l'exemple = 3

Comment faire pour que lors de la sélection d'une date dans DTPicker1, le calcul se fasse en TextBox3 comme suit :

Date DTPicker1 + délai TextBox4
=
18/06/2019 + 3 = 21/06/2019

Encore Merci !

Crdlt
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
18 juin 2019 à 16:40
et si tu colles le code dans le change de ton DTPicker1?
ça donnerai qqchose comme ça ...
n'ayant pas ce contrôle sur mon poste de travail, je ne peux pas tester mais logiquement ça devrait jouer 
Private Sub DTPicker1_Change()
    Dim IntervalType As String
    Dim number As Integer
    Dim debut As Date, fin As Date

    IntervalType = "d"
    number = TextBox4.Value
    debut = DTPicker1
    fin = DateAdd(IntervalType, number, debut)
    TextBox3.Value = fin

End Sub
0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
18 juin 2019 à 17:10
Merci, cela fonctionne parfaitement !

Crdlt
0
Réponse 2 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
18 juin 2019 à 14:25
Bonjour,

Généralement, Un textbox renvoie du texte...
0
Réponse 3 / 3
JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 462
Modifié le 18 juin 2019 à 15:11
Bonjour

Essayes cela
textbox3.Value=cdbl(textbox1.Value)+cdbl(textbox2.Value)
Crdlt
0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
18 juin 2019 à 16:12
Merci JCB40,

J'ai essayé dans la propriété, (Value), mais cela ne fonctionne pas

Crdlt
0