Sélectionner onglet selon calendrier + USF saisie heures

Bonsoir,

Dans le fichier joint, une macro en B3 affiche un calendrier? Peut-on associer le clic sur une date à un onglet et l'ouvrir? Pourriez-vous m'aider? J'ai quelques idées mais cela reste brouillon.

En B14, en double cliquant sur la cellule, un USF s'ouvre et permet de saisir des heures. Il m'arrive parfois de ne pas pouvoir inscrire au-delà de 10 ou 11 dans le premier textbox.

Dans le code ci-après, cela semble fonctionner normalement si je supprime la ligne CASE 1... mais une main experte pourra y voir plus clair.

Merci par avance.

Option Explicit

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii < 47 Or KeyAscii > 58 Then KeyAscii = 0

Select Case Len(TextBox1)

Case 0

If KeyAscii > 50 Then KeyAscii = 0

Case 1

If KeyAscii > 51 Then KeyAscii = 0

End Select

End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii < 47 Or KeyAscii > 58 Then KeyAscii = 0

Select Case Len(TextBox2)

Case 0

If KeyAscii > 53 Then KeyAscii = 0

End Select

End Sub

Private Sub TextBox2_Change()

If Len(TextBox2) = 2 Then

ActiveCell = TextBox1 & ":" & TextBox2

Unload Me

End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Not Intersect(Target, [B:B]) Is Nothing Then

UserForm1.Show

End If

End Sub