Format Date Révolutionnaire

Lisa

XLDnaute Nouveau
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
 

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec