Calcul entre textbox excel vba

Résolu
PYGOS69 -  
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

3 réponses

  1. michel_m Contributeur
    Bonjour,

    Généralement, Un textbox renvoie du texte...
    0
    1. JCB40
      Bonjour

      Essayes cela
      textbox3.Value=cdbl(textbox1.Value)+cdbl(textbox2.Value)
      Crdlt
      0
      1. PYGOS69 Auteur
        Merci JCB40,

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

        Crdlt
        0
    2. fabien25000
      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
      1. PYGOS69 Auteur
        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
      2. fabien25000
        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
      3. PYGOS69 Auteur
        Merci, cela fonctionne parfaitement !

        Crdlt
        0