Format hh:mm:ss

[claude40]

bonjour a tous

j'ai créai un userform dans le j'affiche des données horaire issue d'un tableau.

j'ai formater la TextBox au format (hh:mm:ss) le soussi avec se format c'est qu'il s'arréte a 24h et moi je voudrai qu'il continu (25.26.27......).

quelqu'un connait il le format que je pourrai utiliser?

merci d'avance

 

[PascalXLD]

Re : Format hh:mm:ss

Bonjour

il faut mettre un format

[hh]:mm:ss

Bonne journée

 

[claude40]

Re : Format hh:mm:ss

bonjour PascalXLD

voila se que j'ai fait et sa ne fonctionne pas.

.Controls("TextBox" & I * 11 + 4) = Format(Cells(Range("Tab_B").Row + 1 + I, "X"), "[hh]:mm:ss")

merci

 

[PascalXLD]

Re : Format hh:mm:ss

Re

Il y a quoi comme valeur dans ta colonne X ?

 

[claude40]

Re : Format hh:mm:ss

re

voici la colonne
Heures de Fonctionnement
38:15:00
12:15:00
38:15:00
38:15:00

et le format des cellules et [h]:mm:ss

merci pour ton aide

 

[PascalXLD]

Re : Format hh:mm:ss

re

sans le fichier c'est dur

essaies

.Controls("TextBox" & I * 11 + 4) = Format(CDate(Cells(Range("Tab_B").Row + 1 + I, "X")), "[hh]:mm:ss")

 

[claude40]

Re : Format hh:mm:ss

re

voila le fichier,le code est dans l'userformfrmRaportUtilisationBroyeur)

merci

Regarde la pièce jointe Saisie_Mod_3.zip

 

[PascalXLD]

Re : Format hh:mm:ss

re

en fait le format [h] n'est pas compris par VBA (je ne m'en rappelais plus)

essaies en remplaçant ta ligne par

If Cells(Range("Tab_B").Row + 1 + I, "X") <> "" Then .Controls("TextBox" & I * 11 + 4) = Int(CDec(24 * Cells(Range("Tab_B").Row + 1 + I, "X"))) & ":" & Format(Minute(Cells(Range("Tab_B").Row + 1 + I, "X")), "00") & ":" & Format(Second(Cells(Range("Tab_B").Row + 1 + I, "X")), "00")

 

[claude40]

Re : Format hh:mm:ss

re

merci PascalXLD sa marche

bonne journée