Discussion :

[stephadm]

Bonsoir au forum,

Je souhaite ajouter une heure dans une TextBox14 par rapport à TextBox12

resultat recherché : TextBox12 = 14:30 donc TextBox14 = 15:30
Voici ce que j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox14.Value = Format(TextBox12 * 3600, "hh:mm")

Cela provoque une erreur d'éxécution '13' : incompatibilité de type

Quel est le bon code vba ?

Merci

Stephanie

[casefayere]

Bonsoir,
sans avoir testé, essayes ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim hrs
hrs = Replace(TextBox12, ":", ",")
hrs = Format(hrs + 1, "0.00")
TextBox14.Value = Replace(hrs, ",", ":")

[AlainTech]

Bonjour,

Testé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Dim dTextBox As Date
  dTextBox = TimeValue(Me.TextBox12.Text)
  Me.TextBox14.Text = Format(dTextBox + TimeValue("1:00"), "hh:mm")

[casefayere]

Bonsoir Alain
Je m'incline devant une solution bien moins tarabiscotée que la mienne

Bonne nuit

[AlainTech]

Y a pas de quoi.
Si tu savais tout ce que j'ai appris sur le forum...

Pour les dates et les heures, il vaut toujours mieux convertir en Type Date (nombre décimal), quitte à refaire un Format pour l'affichage dans une TextBox.

Bonne nuit à toi aussi.

[stephadm]

Bonjour casefayere, AlainTech et au forum

Je vous remercie casefayere et AlainTech, ça fonctionne.

Moi, j'ai progressé avec ce forum grace à vous et d'autres qui ont été aussi patient et efficace. je ne suis pas devenu pro, loin de ça mais il faut bien commencer quelque part.

Stephanie