Problème Userform

Bonjour le Forum

J'ai un problème avec les heures, j'ai mis sur ma feuille les heures, et quand j'ouvre mon userform, elle ne sont pas converties

ex : 1:00 = 4,116

Pourriez-vous m'aider à comprendre ce qui ce passe

Par avance, merci pour votre savoir et de votre aide

Je mets une PJ

Bien cordialement

ericp

Bonjour,

Ci-joint une proposition à tester.

En récupérant le texte au lieu de la valeur

Me("Label" & i).Caption = Sheets("couleurs").Cells(i, 1).Text

Bonne journée

Bouben

C'est parfait, un grand grand merci à toi

Bien cordialement

bonjour

il faut mettre : Me("Label" & i).Caption = CDate(Sheets("couleurs").Cells(i, 1))

A+

Maurice

Bonjour Maurice,

Je dirai même plus :

Me("Label" & i).Caption = Format(CDate(Sheets("couleurs").Cells(i, 1)), "HH:NN")

Bouben

bonjour

ses bien de rectifier mes bon tu test tromper de touche HI

   Me("Label" & i).Caption = Format(CDate(Sheets("couleurs").Cells(i, 1)), "hh:mm")

A+

Maurice

Salut ! La première version de Bouben est toutefois la plus économique !

Cordialement.

Bonjour Archer,

Pas d'accord avec toi.

Le standard pour les heures/minutes/secondes : "hh:nn:ss".

mm est généralement utilisé pour les mois ; "dd/mm/yyyy"

https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/format-function-visual-basic-for-applications

VBA s'en sort quand même avec "MM" dans certains cas :

? format("12/08/2017 13:23:50", "MM/DD/YYYY HH:NN:SS")
08/12/2017 13:23:50
? format("12/08/2017 13:23:50", "MM/DD/YYYY HH:MM:SS")
08/12/2017 13:23:50
? format("12/08/2017 13:23:50", "MM")
08
? format("12/08/2017 13:23:50", "NN")
23

Explication :

Je reste à ta disposition pour toute précision, je serai là sans faute.

Bouben