Bloquage de saisie

[Manu62]

Bonjour le forum,

J'ai deux textbox ou il ya un date.
textbox 1 date du jour
textbox 1 date que l'on souhaite mettre manuellement.

Je voudrais mettre un code qui fait un test entre les 2 dates.
Si la date saisie manuellement est supérieur de 5 jours, mettre un message, erreure date, période cloturé...

Merci d'avance

Manu

 

[blord]

Re : Bloquage de saisie

Bonjour,

Il y a peut-être une solution plus simple mais moi je retourne les dates dans une feuille et je fait faire les calculs par "Excel" et non pas en vba et je récupère la valeur de la cellule calculée pour faire la vérification...

Pour reporter un textbox dans une feuille
Sheets("info").Range("C30").Value = Format(TextBoxDate.Value, "yyyy-mm-dd")



Message
If Sheets("info").Range("C32").Value < 0 Then
MsgBox "La date de fin doit être égale ou supérieure à la date de début !", vbOKOnly + vbInformation
Exit Sub
End If


Date début 2007-01-01
Date fin 2007-01-31
Validation 30 on fait la différence entre les deux dates

à adapter à tes besoins...

Benoit Lord

 

[Pierrot93]

Re : Bloquage de saisie

Bonsoir Manu, Blord

une autre solution à utiliser directement dans l'USF :

A noter empêche la sortie du textbox2 si date non conforme.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CDate(TextBox2.Value) > CDate(TextBox1.Value) + 5 Then
    MsgBox "saisie invalide !!!"
    Cancel = True
End If
End Sub

suppose que le textbox1 soit bien alimenté, comme ceci par exemple :

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Date, "dd/mm/yyyy")
End Sub

bonne soirée
@+