Comment concatener plusieurs textbox

Résolu
coupidon Messages postés 98 Statut Membre -  
Ant049 Messages postés 157 Statut Membre -
Bonjour,

voilà, j'ai 3 textbox avec lequels je saisi :
- des heures sur le 1er
- des minutes sur le 2em
- des secondes sur le 3em
j'ai choisi cette configuration par esthétisme,bref

je souhaiterais faire un calcul en vba sur excel avec, en utilisant la date du jour et heure avec la fonction

now()

mais comment on peu concatener les 3 textboxs pour me permettre ce calcul.

merci à ceux qui peuvent m'aider.....

1 réponse

  1. Ant049 Messages postés 157 Statut Membre 22
     
    Bonjour,

    Pour concaténer tes textbox :
    Nomdetavariable = TextBox1.Value & ":" & TextBox2.Value & ":" & TextBox3.Value


    Quelle opération veux-tu faire ?
    0
    1. coupidon Messages postés 98 Statut Membre 1
       
      je veux utiliser la date du jour avec now() dans cette date normalement il y à la date, je jour, l'année et les heures heures, minutes, secondes.

      je veux dans trois textbox saisir, les heures dans l'une, les minutes dans l'autres et les secondes dans la dernière
      et avec cela je souhaites faire le calcul des trois textbox avec le now() du moment et qu'elle additionne ces heures vois-tu ?

      un exemple :
      textbox1 : 5 Heures
      textbox2 : 20 minutes
      textbox3 : 41 secondes

      disons que maintenant "now()" nous sommes le jeudi 08 septembre 2016 10:06:06
      qu'un textox4 par exemple m'affiche le résultat :

      15:26:47

      voilà, semble simple sur excel mais en vba je pêche, pour cela que je pensais à la concatenation
      0
    2. Ant049 Messages postés 157 Statut Membre 22
       
      D'accord, je t'ai mis une possibilité de concaténation sur mon 1er post.
      Pour l'addition, il faut que tu utilises la fonction Time sur VBA, qui te renverra l'heure avec minutes et secondes.
      Fais attention aux formats ! Pour additionner les deux, il faudra que tu adaptes le format, je te laisse voir ça et reviens si tu bloques.
      0
      1. coupidon Messages postés 98 Statut Membre 1 > Ant049 Messages postés 157 Statut Membre
         
        bonsoir,

        j'ai tester ton code donc voilà, comme ceci cela fonctionne, mais je n'arrive pas à trouver comment faire avec la fonction time pour l'utiliser dans ce code
        quand j'utilise la variable H et que je souhaite faire des calculs ben cela me fait des erreurs, du coup je bloque....
        j'ai chercher des cours sur vba avec la fonction time, mais avec ma concaténation cela bug.
        je sais pas si c'est pris comme une heure du coup, afin de pouvoir justement faire le calcul.


        Private Sub TextBox10_AfterUpdate()


        Dim H As String
        H = TextBox8.Value & ":" & TextBox9.Value & ":" & TextBox10.Value

        TextBox16.Value = H
        End Sub
        0
    3. coupidon Messages postés 98 Statut Membre 1
       
      mais pour se sujet vous avez répondu à mes attentes, donc je considère que cette question est résolu, merci
      0
    4. Ant049 Messages postés 157 Statut Membre 22
       
      Bonjour,

      Tu as la méthode pour concaténer tes textbox.
      En ce qui concerne l'ajout des deux horaires :
      - essaye de jouer avec les formats :
      Format( tavaleur, "format souhaité")

      - regarde des fonctions comme DateAdd
      0