Autorisation si année en cours

[Gexk5]

Bonjour le forum,
Voici mon problème, je saisie une date dans une Imputbox, au format jj/mm/aaaa, commentfaire pour afficher un message si l'année n'est pas l'année en cours??? Voici le depart de mon code

Dim MyDate As Date
MyDate = InputBox("Saisir une Date,FORMAT jj/mm/aaaa", "MOULAGE 1", Format(Date, "DD/MM/YYYY"))

' Teste si la saisie est au format Date
If Not IsDate(MyDate) Then
MsgBox "Veuillez Saisir une Date valide sous ce format " & Format(Date, "DD/MM/YYYY")
Exit Sub
End If

'Interdit la création de semaine inférieure à la date du jour
If MyDate < Date - 10 Then
MsgBox ("AntiDatage interdit")
Exit Sub
End If

'Interdit la création de semaine supérieure à la date du jour + 90
If MyDate > Date + 90 Then
MsgBox ("Vous avez encore le temps pour poser vos jours !!!")
Exit Sub
End If

Comment rajouter ma condition pour l'année

Merci d'avance pour vos réponses

 

[wilfried_42]

Re : Autorisation si année en cours

bonjour gexk5

if year(mydate)<> year(date) then msgbox "Ce n'et pas l'année en cours"

 

[Danix]

Re : Autorisation si année en cours

Bonsoir,

Si j'ai bien compris, tu souhaite controler l'année de la date saisie par rapport à une année valide. On ne peux pas se servir de la date du jour car je pense que l'on peut poser des congés par anticipation (exemple : en décembre 2007 pour le mois de janvier 2008). Ceci étant poser, tu peux dans une cellule ou bien dans un nom, entrer l'année te servant de référence et tester la saisie avec ce paramètre.

J'espère avoir répondu à ton attente.

Slts

Danix

 

[pierrejean]

Re : Autorisation si année en cours

bonjour Gexk5

sauf erreur grossiere de ma part

l'année est a priori incluse aussi bien dans Mydate que dans Date

il n y a donc rien a modifier

Salut Wilfried

Salut Danix

ps pour wilfried

Quid des vacances de Noel ???

 

[Gexk5]

Re : Autorisation si année en cours

Re le forum, Wilfried,Danix et PJean
Wilfried, ta soluce me va très bien , encore merci j'étais parti sur
if year(mydate)>year(mydate)+1 !!!!!!!
Danix, merci je regarde ta solution, mais je veux saisir par anticipation mais mais pour l'année suivante ( remise à zéro des congés pris)
PJean, et si erreur, ca ne fonctionne pas sans modif, bon on te la pardonnera vu l'aide précieuse que tu apportes tous les jours (lol)

Encore merci a vous de vos réponses
Jamais décu sur ce forum

Gex

 

[Gexk5]

Re : Autorisation si année en cours

Bonsoir le forum

Dans la mème idée, j'ai deux controles calendrier ou je saisie ma date de debut puis ma date de fin, comment faire pour verouiller sur l'année en cours, avec un message si je change l'année des calendriers. J'arrive a verouiller aux nombre de jours mais pas sur l'année!!!

Private Sub Cal2_Click() ''' CONGES PAYES'''
'Interdit la création d'autorisation inférieure à la date du jour - 10 jours
If Cal2 < Date - 10 Then
MsgBox ("AntiDatage interdit"): InfoCP = ""
Exit Sub
End If
'Interdit la création d'autorisation supérieure à la date du jour + 90
If Cal2 > Date + 90 Then
MsgBox ("Saisie non autorisée pour cette période, Plus de 3 mois!!!")
Exit Sub
End If

Merci de vos reponses.

Gex

 

[bqtr]

Re : Autorisation si année en cours

Bonsoir Gexk5, le fil

Rajoute ceci au début de ta procédure :

If Not Cal2.Year = Year(Date) Then Cal2.Year = Year(Date)

Le changement d'année sera impossible, tu auras toujours l'année en cours.
Tu pourras changer l'année, mais des que tu sélectionneras un jour, l'année en cours se réaffichera automatiquement et sera prise en compte.
Plus besoin de MsgBox.

Si tu souhaites une msgBox, met la aprés le Then et supprime Cal2.Year = (Date) .

Bonne nuit

 

[Gexk5]

Re : Autorisation si année en cours

Re le forum,
Merci BQTR, c'est ce que je cherchais

Gex