Bloquage de saisie

Manu62 · 12 Novembre 2008

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 · 12 Novembre 2008

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 · 12 Novembre 2008

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.

Code:

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 :

Code:

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

bonne soirée
@+

Bloquage de saisie

Manu62

XLDnaute Impliqué

blord

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Bloquage de saisie

Manu62

XLDnaute Impliqué

blord

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency