Format TIME dans UserForm

Bonjour,

J'ai créé une procédure permettant d'afficher l'heure de retour de pause d'employés.

La procédure inscrit dans la case appropriée l'heure de retour prévu et affiche un UserForm indiquant l'heure de retour (personnalisé avec son prénom).

Mon souci est que je n'arrive pas a afficher dans le UserForm l'heure sans les secondes. J'ai testé pleins de choses, soit cela rend une erreur soit les secondes s'affichent tout de même...

CODE DE LA PROCEDURE :

Sub lunch()
 Dim repas As Date
 repas = Time + TimeValue("00:46:00")
'Sélection d'une cellule (calculée par rapport à la cellule active actuelle)
    ActiveCell.Offset(0, 84).Select
     With ActiveCell
        .Value = repas
    'Fin de l'instruction avec : END WITH
    'Déclarationdes variables
 Dim prenom As String
     'Valeur des vraiables
prenom = ActiveCell.Offset(0, -84)
    End With
UserForm1.Show 0
End Sub

CODE DU USERFORM :

Private Sub UserForm1_Initialize()
End Sub

Public Sub UserForm_Activate()
Dim prenom As String
prenom = ActiveCell.Offset(0, -84)
Dim repas As Date
repas = Time + TimeValue("00:46:00")
Me.Label1.Caption = "Bon appétit " & prenom & " !"
Me.Label2.Caption = "RETOUR A  " & repas
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Je vous mets en pièce jointe le fichier, il faut sélectionner un prénom puis cliquer sur le bouton en haut avec l'assiette pour lancer la procédure.

Merci d'avance pour votre précieuse aide !

Oncle Sid

Bonjour,

je comprends pas trop pourquoi il y a 10:04 dans le caption du bouton mais bref passons.

Pour ton code rajoute une ligne format

Public Sub UserForm_Activate()
Dim prenom As String
Dim repas As Date
prenom = ActiveCell.Offset(0, -84)
repas = Time + TimeValue("00:46:00")
X = Format(repas, "hh:mm")
Me.Label1.Caption = "Bon appétit " & prenom & " !"
Me.Label2.Caption = "RETOUR A  " & X

Merci Xmenpl je n'avais pas remis l'ensemble dans une nouvelle variable à priori c'est pour ça que je n'y arrivait pas !

10.04 c'est un code radio que l'on utilise à mon boulot pour dire "bien reçu"

OncleSid a écrit :

Merci Xmenpl je n'avais pas remis l'ensemble dans une nouvelle variable à priori c'est pour ça que je n'y arrivait pas !

10.04 c'est un code radio que l'on utilise à mon boulot pour dire "bien reçu"

Ok Zébra 3