[E-03] Se référer à la date système pour créer des conditions

Bonjour, je voudrais savoir comment écrire en vba pour réaliser la condition suivante:

Si "La Date Sytème de l'ordinateur" est inférieur à une date déterminée, par exemple (31/01/09) alors....

Je pense que c'est quelque chose du type:

Code:

---

If Now< 31/01/09 then...

---

Mais sa ne doit pas exactement être sa parce que sa ne fonctionne pas!

Merci pour l'aide

Bonjour,

une discussion ici qui pourrait t'intéresser.

Citation:

---

Envoyé par moilou2

Je pense que c'est quelque chose du type:

Code:

---

If Now< 31/01/09 then...

---

Mais sa ne doit pas exactement être sa parce que sa ne fonctionne pas!

---

Bonjour,
Si ta date système est à jour (nous sommes déjà le 3 février 2009 !) il ne risque pas de déclencher quoi que ce soit, ton Then ...
:lol:

Voilà de toutes façons la manière orthodoxe :

Code:

---

1 2 3

Dim ladate As Date ladate = "10/02/2009" If Now < ladate Then MsgBox "oui"

---

Bon ba je n'y arrive pas, mon raisonnement ne doit pas être logique :?

Si vous voulez j'ai 12 boutons dans un UserForm. Ces 12 boutons représente en fait les 12 mois de l'année.

Ce que je veux faire c'est rendre le clic possible sur un bouton (propriété enable) uniquement si le mois de ce bouton est terminé. Suis-je clair?

Je veux placer ce code sur l'évenement activate de mon UserForm.

Ainsi comme nous sommes le 04 février 2009, seul le bouton du mois de janvier doit être dégrisé.

Si on été le 5 mars, seuls les boutons Janvier et Février doivent être dégrisés.

Je pense être clair.:lol:

Merci

J'espère que tes boutons sont numérotés, ça facilitera l'écriture du code.
Dans Userform_Activate ou Initialize, tu mets

Code:

---

1 2 3 4 5 6 7

For i = 1 to 12 if i < Month(Now) then Me.controls("Bouton" & i).Visible = true else Me.controls("Bouton" & i).Visible = false endif Next

---

Tu remplaces Bouton par le nom qui est le leur.
Si tes boutons ne sont pas numérotés, crée un tableau de leurs noms que tu utilises dans la boucle à la place de "Bouton" & i.

Citation:

---

J'espère que tes boutons sont numérotés, ça facilitera l'écriture du code

---

Tu veux dire numérotés de 1 à 12?

Je peux le faire, mais actuellement le nom des boutons est Cmd_Janvier, Cmd_Février....

Citation:

---

Tu remplaces Bouton par le nom qui est le leur.

---

J'ai 12 noms de boutons différents, je ne vois pas bien comment faire,^peut tu adapter ton code à un bout de mon application?

Merci pour ton aide, sa a l'air plus simple que ce que j'essayé de faire (enfin moins long...)

On va essayer d'adapter

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() For i = 1 To 12 NomBouton = Format(CDate("1/" & i & "/" & Year(Now())), "mmmm") If i < Month(Now) Then Me.Controls("cmd_" & NomBouton).Enabled = True Else Me.Controls("cmd_" & NomBouton).Enabled = False End If Next End Sub

---

Tu n'es pas obligé de mettre

Citation:

---

NomBouton = Format(CDate("1/" & i & "/" & Year(Now())), "mmmm")

---

tu peux simplifier en mettant

Code:

---

NomBouton = Format(CDate("1/" & i & "/1900"), "mmmm")

---

Par contre, je n'ai pas traité le passage d'une année sur l'autre, par exemple le mois de janvier 2010. Mais maintenant que tu as le principe, tu sauras adapter 8-)
Raconte-nous ;)

Re et merci de te donner du mal pour m'aider, mais je ne comprends pas tout...:oops:

Tu as bien compris ce que je voulais faire? Il n'y a pas d'ambiguité?

J'ai un UserForm avec 12 boutons, 1 par mois. Ces boutons sont nommés Cmd_Janvier, Cmd_Février....

Je veux que les seuls boutons qui soient actifs, soient ceux dont le mois est réellement terminé. Dans le code que tu m'a donné, je suis désolé dêtre ennuyant mais je ne comprend pas la syntaxe...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize()   For i = 1 To 12 NomBouton = Format(CDate("1/" & i & "/" & Year(Now())), "mmmm") If i < Month(Now) Then Me.Controls("Cmd_" & NomBouton).Enabled = True Else Me.Controls("Cmd_" & NomBouton).Enabled = False End If Next   End Sub

---

Et donc je ne vois pas comment sa fonctionne. Je met sa brut comme sa? Parce que si c'est le cas, sa ne fonctionne pas sa me met:

Citation:

---

Erreur d'execution'-2147024809, Objet spécifique introuvable

---

Pour ce qui est de l'année 2010, normalement je serais passé sur ACCESS, donc je n'aurais plus ce soucis :mrgreen:

Merci de prendre le temps de te pencher sur mon cas (et désolé si je ne comprend pas tout :oops:).

Fais un essai tout bête :
Prends un usf tout neuf, place 5 boutons nommés CommandButton1, 2, 3, 4 et teste ce code

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() For i = 1 to 4 if i < Month(Now) then Me.controls("CommandButton" & i).Visible = true else Me.controls("CommandButton" & i).Visible = false endif Next End Sub

---

Pour le nom de tes boutons, si tu as un pb c'est que l'orthographe des mois utilisée ne correspond pas à la fonction Format(LaDate,"mmmm").
Tu peux faire une boucle et vérifier cette orthographe

Code:

---

1 2 3

For i = 1 to 12 Msgbox Format(CDate("1/" & i & "/" & Year(Now())), "mmmm") Next

---

et respecte cette orthographe dans le nom de tes boutons

Merci sa fonctionne nikel, je comprend mieu le fonctionnement de ce bout de code maintenant.

J'avais fait une erreur a Août où j'avais oublié l'accent et à Décembre (Idem).

Merci pour le coup de pouce c'est bien utile.

A+ et merci encore