Userform - Format date

Bonjour,

Je reviens une nouvelle fois vers vous pour faire appel à vos compétences

Voilà, j'ai créé un userform permettant à l'utilisateur de rentrer une heure grâce à 2 TextBox (Une pour l'heure et la seconde pour les minutes).

J'aimerai que l'heure s'écrive dans la cellule active sauf que c'est là que ça coince. Je ne sais pas comment fusionner les 2 TextBox tout en respectant le format personnalisé de ma cellule à savoir hh:mm" /"

Je vous mets le code en question, vous verrez en commentaire une tentative infructueuse :

Private Sub BtnValider_Click()

If UsfHeure <> "" And UsfMinute <> "" Then
'        Me.UsfHeure.Value = Format(Me.UsfHeure.Value, "hh:mm")
        ActiveCell = H
        Unload Me
        End If
Else
    MsgBox ("Vous devez remplir tous les champs !")
    UsfHeure.SetFocus
    End If

Private Sub UsfFormulaire_Initialize()

H = CDate(UsfHeure.Value)
M = CDate(UsfMinute.Value)
End Sub

Merci d'avance

Bonjour

Ton code pourrait ressembler à celui-ci

Private Sub BtnValider_Click()

  If UsfHeure <> "" And UsfMinute <> "" Then
    '        Me.UsfHeure.Value = Format(Me.UsfHeure.Value, "hh:mm")
    With ActiveCell
      .Value = CDate(UsfHeure & ":" & UsfMinute)
      .NumberFormat = "h:mm;@"
    End With
    Unload Me
  Else
    MsgBox ("Vous devez remplir tous les champs !")
    UsfHeure.SetFocus
  End If
End Sub

Ta procédure Private Sub UsfFormulaire_Initialize() n'existe pas en tant que procédure événementielle, peu importe le nom de l'userform cela sera toujours Private Sub UserForm_Initialize()

Bonjour,

Ou bien :

With ActiveCell
    .Value = (UsfHeure + UsfMinute / 60) / 24
    .NumberFormat = "hh:mm;@"
End With

Une procédure Initialize te servirait éventuellement à afficher des valeurs prédéfinies dans les TextBoxes à l'ouverture du Userform (par exemple l'heure courante). Elle n'intervient pas à la validation.

Cordialement,

Ferrand

Bonjour,

Désolé de ne répondre que maintenant

Je viens de tester vos 2 solutions et elles fonctionnent parfaitement. J'ai juste retiré le .NumberFormat car ça écrase mon format de cellule personnalisé.

Merci beaucoup de vos précisions, je suis toujours autant satisfait de l'aide apportée sur ce forum

Cordialement