L
Lisa
Guest
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
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
