Ajouter dix minutes à une heure sous forme hh:mm:ss en Vba

[zephir94]

Bonsoir à vous tous,

Je récupère la saisie d'une textbox depuis un Userform.
La textbox est formatée en hh:mm:ss

et j'écris dans une Cellule d'une feuille cette saisie, je voudrais incrémenter de dix minutes cette saisie !
mais je n'y arrive pas, j'ai fait moultes recherches infructueuses du genre :

a = TextBox3.Value
a = Format(a, "HH:MM:SS")
ActiveSheet.Range("V" & ligne2).Value =a
ActiveSheet.Range("V" & ligne2).Value = DateAdd("m", 10, ActiveSheet.Range("V" & ligne2).Value)

Merci à vous tous pour m'aider

Bien cordialement
Zephir

 

[Dranreb]

Bonjour.
N'utilisez Format que pour transformer une donnée numérique en texte, pas le contraire.
Là je dirais :

ActiveSheet.Cells(ligne2, "V").Value = CDate(TextBox3.Text) + TimeSerial(0, 10, 0)

 

[zephir94]

Merci beaucoup à vous deux
J'avais écris M à la place de N
Bien amicalement
Zéphir