Discussion :

[mixnake]

Bonjour à tous,

Je viens sur ce forum vous demander un peu d'aide concernant un problème devant lequel je suis actuellement confronté.
J'ai créé une étiquette avec la propriété non visible.
En fonction de la date du jour, j'aimerais afficher, ou pas, cette étiquette, si l'utilisateur se trouve à une date entre le 20/12 et le 10/1 ou entre le 20/03 et le 10/04 ou entre le 20/06 et le 10/07 ou bien encore entre le 20/09 et le 10/10, le cycle trimestriel recommençant au début.
J'ai tenté de créer une macro sur le modèle suivant, dans la propriété sur ouverture du formulaire :

Si Date() Entre #20/12/2013# Et #10/01/2014# Ou Entre [...]
Alors

Ouvrir Formulaire
[...]
Définir propriété
Nom d'objet
Propriété --- Visible

Dans un premier temps, je pense que je ne dois pas utiliser Date() car je souhaite une récurrence d'années en années. Malheureusement, je ne sais pas quelle autre fonction utiliser pour ne prendre en considération que le jour et le mois.

D'avance, merci de votre aide.

[nico84]

Bonjour,

Il est possible d'utiliser month(date) et day(date)
Par exemple en les combinant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
jour = 100*month(date)+day(date)
MonLabel.visible = (jour>... and jour<...) or ...

[ClaudeLELOUP]

Bonjour vous deux,

On peut aussi utiliser la fonction DateSerial pour généraliser ton code.

Voici un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Compare Database
Option Explicit
 
 
Public Function DansPeriode(UneDate As Date) As Boolean
  If UneDate >= DateSerial(Year(UneDate), 12, 20) And UneDate <= DateSerial(Year(UneDate) + 1, 1, 10) Then
    DansPeriode = True
    Exit Function
  End If
 
  If UneDate >= DateSerial(Year(UneDate), 3, 20) And UneDate <= DateSerial(Year(UneDate), 4, 10) Then
    DansPeriode = True
    Exit Function
  End If
 
  If UneDate >= DateSerial(Year(UneDate), 6, 20) And UneDate <= DateSerial(Year(UneDate), 7, 10) Then
    DansPeriode = True
    Exit Function
  End If
 
  If UneDate >= DateSerial(Year(UneDate), 9, 20) And UneDate <= DateSerial(Year(UneDate), 10, 10) Then
    DansPeriode = True
    Exit Function
  End If
 
End Function

N.B. La date doit être entrée au format anglo-saxon (mois/jour/an).
Pour tester ouvre la fenêtre d'exécution (CTRL+G)

[mixnake]

Bonjour à vous deux.
Merci pour vos réponses.
Je trouve votre méthode très ingénieuse Nico, ça simplifie énormément d'attribuer chaque jour de l'année à un entier ; Néanmoins, j'essaie d'appliquer le second code dans le but de comprendre un peu mieux les conditions.

Option Compare Database
Option Explicit


Public Function DansPeriode(UneDate As Date) As Boolean
If UneDate >= DateSerial(Year(UneDate), 12, 20) And UneDate <= DateSerial(Year(UneDate) + 1, 1, 10) Then
DansPeriode = True
Exit Function
End If

If UneDate >= DateSerial(Year(UneDate), 3, 20) And UneDate <= DateSerial(Year(UneDate), 4, 10) Then
DansPeriode = True
Exit Function
End If

If UneDate >= DateSerial(Year(UneDate), 6, 20) And UneDate <= DateSerial(Year(UneDate), 7, 10) Then
DansPeriode = True
Exit Function
End If

If UneDate >= DateSerial(Year(UneDate), 9, 20) And UneDate <= DateSerial(Year(UneDate), 10, 10) Then
DansPeriode = True
Exit Function
End If

End Function

J'ai placé ce code dans la propriété sur chargement. Si l'une des conditions est valide, cela doit me faire apparaître mon étiquette. J'ai tenté de réécrire ma condition ( qui est donc validée si la variable DansPeriode est vraie ) sous cette forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DansPeriode = True Then alerte.Visible

(Alerte étant le nom de mon étiquette), mais cela ne fonctionne pas.
Est-ce que ce code doit être rentré dans un module pour être appelé à chaque fois lors de la vérification de la condition au chargement du formulaire ou bien est-ce la syntaxe qui est erronée ?
Merci pour votre implication dans la résolution de ce problème

[nico84]

Je pense qu'il faut un argument à dansperiode !

Et comme il s'agit de 2 booleens on peut écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

alerte.visible = dansperiode(date)

[mixnake]

Désolé pour le retard.
Merci beaucoup de votre aide, cela a été très productif. Pourquoi faire compliqué quand on peut faire simple : la première méthode est 100% fonctionnelle et permet de calculer simplement les dates.

Encore merci pour votre aide et votre disponibilité !