Code pour insérer heure active

Rebonjour à tous,

un deuxième sujet

Un code qui fonctionne bien sur toutes les feuilles du classeur, mais que j'aimerais adapter à un ComboBox d'un UserForm

'Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'
'       With ActiveCell  'Sélectionne la cellule active et applique la macro Heure
'          Heure
'        End With
'        Cancel = True
'End Sub

Macro Heure

Sub Heure()
'
' Heure Macro
'

'
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = Now
     Selection.NumberFormat = "h:mm"
    ActiveCell.Offset(1, 0).Select

End Sub

Bonjour Cappe Pierre

en espérant éclairer votre lanterne

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Me.ComboBox1.Value = Format(Time, "h:mm")
End Sub

Bonjour Bob, Et un tout grand merci et de plus, ça marche, contrairement à Bob l'éponge que je vois passer à la télé avec mes

arrières-petits-enfants

Bon dimanche à vous

Amicalement

Pierrot