Ne pouvoir saisir qu'une date

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Dans les TextBox de DATE, autorise uniquement les touches numériques et /
KeyAscii = AutoriseFrappe(KeyAscii)
End Sub
Où autorisefrappe est :
Public Function AutoriseFrappe(ByVal k As Integer) As Integer
' Merci MyDearFriend www.excel-downloads.com
' Autorise uniquement les touches numériques et /
Select Case k
Case Is 57 'différent de / et 0 à 9
k = 0
End Select
AutoriseFrappe = k
End Function

Private Sub UserForm_Initialize()
' Limitation du nombre de caractères
' Initialisation des couleurs de la fenêtre Données Pilote (Echéances...)

With DonnéesPilote
.Caption = Range('C1').Value
.TextBox1.BackColor = Range('A6').Interior.Color
.TextBox1.MaxLength = 10
end with
end sub

Private Sub TextBox1_Change()
' Mettre le fond blanc pour que la couleur ne soit plus valable : une MAJ s'impose
TextBox1.BackColor = 16777215
End Sub

Private Sub TextBox1_AfterUpdate()
On Error Resume Next
Call Couleurs.InitPiloteCouleur(DonnéesPilote.Caption)
TextBox2.BackColor = Range('B6').Interior.Color
End Sub

Cliquez pour agrandir...