Contrôle dates formulaire.

[barbin]

Bonsoir à tous,

Je recherche un code qui me permettrait de controler les dates de mon formulaire.
Trois périodes de saisie, les dates doivent être entre la date de début et de fin d'exercice.
Il ne peut qu'y avoir qu'une seule période de saisie ou deux.
C'est là, que je bloc, car si la TextBox est vide, il me dit que la date est incorrecte.
Merci de l’intérêt que vous porterez à ma demande.
cordialement.

 

[barbin]

Ci-joint le fichier :

 

[DoubleZero]

Bonjour à toutes et à tous,

barbin, qu'en est-il de cette discussion ?

🙄🙄

 

[Staple1600]

Bonjour 00 😉

00
Qu'en est-il du lien qui mène à cette discussion ? 😉
Allez CKDO
Voici le string pour le lien 😉
https://www.excel-downloads.com/threads/quand-cellule-e4-change.20022547/

PS:Je te laisse créer le lien

 

[DoubleZero]

Re-bonjour, bonjour Staple16🙂😀,

...
barbin, qu'en est-il de cette discussion ?

🙄🙄

Voulais-je "dire" !

A bientôt 🙂

 

[barbin]

Ok, j'ai compris. Le fichier est un peu gros, mais je le joins quand même.
1) Cliquer sur le bouton jaune "congés payés"
2) cliquer ensuite sur le premier bouton "Nbre de jour".
Et c'est là mon problème. J'ai réussi à faire = la date doit Etre comprise entre la date début exercice et la date fin d'exercice. Mais lorsqu'il n'a pas de date dans les deux autres périodes, je ne peux pas fermer le formulaire.
J'ai utilisé aussi : quand TextBox change, mais si je saisie une date erronée comme 01/02/200017, le formulaire ne s'ouvre plus.

Merci de ton aide.
cordialement.

 

[Staple1600]

Re

@barbin
Non tu ne sembles pas avoir compris 😉
Avant de poser une nouvelle question, la coutume est de suivre la discussion précédente
(celle dont parles 00 et qu'elle a mis en lien)
Tu n'es pas revenu dans ce fil depuis la dernière réponse de 00 le 08/02/18

 

[barbin]

Je n'avais pas vu les dernières réponses. Je suis désolé.
J'ai essayé d'adapter les précédentes réponses, mais je ne suis pas arrivé à trouver une solution.

Suis-je banni du forum et puis-je espérer une réponse ?
cordialement

 

[Staple1600]

Re

Il s'agissait juste de t'informer.
Désormais tu l'es. 😉

Donc tu peux aller voir et commenter la dernière réponse de 00 dans l'autre fil.

Ensuite tu reviens dans celui-ci (avant de revenir tu peux aussi faire des recherches dans les archives du forum pour ton histoire de TextBox et de date)

 

[barbin]

bonsoir à tous.
Pour mon controle des date j'ai mis ce code :

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim DateDebutex As Date
Dim DateFinEx As Date
mafeuille = ActiveSheet.Name
With mafeuille
DateDebutex = Cells(35, 18)
DateFinEx = Cells(35, 22)
If TextBox2.Value < DateDebutex Then
MsgBox "La date de début ne peut être inférieure au mois du bulletin": TextBox2.SetFocus: Exit Sub
ElseIf TextBox2.Value > DateFinEx Then
MsgBox "La date de fin ne peut être supérieure au mois du bulletin": TextBox2.SetFocus: Exit Sub
Cancel = True
End If
End With
End Sub

1) mais je perds le focus dans la Textbox2.
2) et si je clique sur le bouton Go, ça ne l'empêche pas de valider une date comme 01/02/200017, et du coup j'ai une erreur lors du chargement de mon formulaire.

Quelqu'un aurait il une idée ?
Cordialement

 

[barbin]

ci-joint le dernier fichier après modification.

 

[barbin]

J'ai pu résoudre les deux points en modifiant le code comme ceci :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim DateDebutex As Date
Dim DateFinEx As Date
mafeuille = ActiveSheet.Name
With mafeuille
On Error Resume Next
DateDebutex = Cells(35, 18)
DateFinEx = Cells(35, 22)
If TextBox1.Value < DateDebutex Then
Cancel = True
Label1.ForeColor = RGB(255, 0, 0)
MsgBox "La date de début ne peut être inférieure au mois du bulletin": TextBox1.SetFocus: Exit Sub
ElseIf TextBox1.Value > DateFinEx Then
Cancel = True
Label1.ForeColor = RGB(255, 0, 0)
MsgBox "La date de fin ne peut être supérieure au mois du bulletin": TextBox1.SetFocus: Exit Sub
SendKeys "{tab}", False
End If
End With
End Sub

merci barbin

 

[ChTi160]

Bonsoir barbin
Bonsoir le Fil , le Forum

je ne suis pas sur d'avoir tout compris .
Mais ne pourrait on pas remplir les Textbox Dates via Un calendrier ?
ou forcer la saisie de Date dans ces TextBox ?
Pour éviter l'enregistrement de Dates non conformes .
Bonne fin de Soirée
Amicalement
jean marie

 

[barbin]

Salut Chti160,
C'est une bonne remarque.
Mais ma plage de saisie ne concerne qu'un seul mois. Je ne sais pas si, il est préférable d'utiliser le calendrier.
De plus, je ne sais pas si j'ai le calendrier.
Mon code à l'air de fonctionner correctement.
Merci à toi

 

[ChTi160]

Re
avant Dodo Lol
ou trouves tu les dates limites du Mois concerné (dans le Userform)?
je ne suis pas sur de comprendre
Merci para avance
Jean marie