Bonjour CorinneR, BrunoM45 , le forum,
Je vais donc essayer de faire un test pour avoir une msgbox si la cellule est déjà remplie.
A tester....
' Incrire l'heure
If .Cells(LigF, ColF) <> "" Then
If MsgBox("Heures déjà renseignées, les modifier ?", vbYesNo, "Demande de confirmation") = vbYes Then
.Cells(LigF, ColF) = CSng(Me.TbxHeure)
End If
Else
.Cells(LigF, ColF) = CSng(Me.TbxHeure)
End If
Cordialement,