Bonjour,
Je voudrais faire un control sur la saisie d'une date dans USF :
Le script ci-dessous fonctionne parfaitement pour une date normale
Private Sub DDate_Change()
'aide à la saisie de la date
Dim Texte As String
Texte = DDate.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
DDate.Text = Texte
End Sub
Private Sub DDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'verifie format date
If IsDate(DDate.Text) Then
DDate.Text = Format(DDate.Value, "dd/mm/yyyy")
Else
MsgBox "le format de date est incorrect.": Exit Sub
End If
End Sub
Peut-on l'adapter pour vérifier la saisie d'une date Révolutionnaire :
ex. 12/BRUM/03 soit le 12 brumaire de l'an 03
Il ne faut pouvoir saisir que les 4 lettres des mois révolutionnaire et il en existe 12
Je pense qu'il faut passer par des IF
D'avance merci pour votre aide
Lisa