[vb] Comparaison de date

Bonjour, voilà, j'ai récupéré le mois et l'année comme ça :

Code:

---

1 2 3

MOIS = UserForm1.ListBox3.Value ANNEE = UserForm1.ListBox4.Value

---

et je souhaite écrire :

SI MOIS>Mois du jour ET ANNEE > ou = annee du jour
OU ANNEE>annee du jour
ALORS ...

Je ne sais pas comment faire ces comparaisons.
Merci par avance pour votre aide

Code:

---

1 2 3 4

if (MOIS>month(date()) and ANNEE >=year(date())) or (ANNEE>year(date())) then ...

---

Merci pour la réponse mais je crois qu'il y a un autre problème c'est que mon MOIS est une chaine de caractère du coup la comparaison marche pas ...
Si quelqu'un peut m'apporter une solution ...

elle est comment ta chaine ?

Je ne sais pas si ça répond à la question mais :

Code:

---

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 27 28 29 30 31 32 33 34 35 36

Private Sub CommandButton2_Click() UserForm3.Hide UserForm1.ListBox3.Clear UserForm1.ListBox3.AddItem ("JANVIER") UserForm1.ListBox3.AddItem ("FEVRIER") UserForm1.ListBox3.AddItem ("MARS") UserForm1.ListBox3.AddItem ("AVRIL") UserForm1.ListBox3.AddItem ("MAI") UserForm1.ListBox3.AddItem ("JUIN") UserForm1.ListBox3.AddItem ("JUILLET") UserForm1.ListBox3.AddItem ("AOUT") UserForm1.ListBox3.AddItem ("SEPTEMBRE") UserForm1.ListBox3.AddItem ("OCTOBRE") UserForm1.ListBox3.AddItem ("NOVEMBRE") UserForm1.ListBox3.AddItem ("DECEMBRE")   UserForm1.ListBox4.Clear UserForm1.ListBox4.AddItem ("2007") UserForm1.ListBox4.AddItem ("2008") UserForm1.ListBox4.AddItem ("2009") UserForm1.ListBox4.AddItem ("2010") UserForm1.ListBox4.AddItem ("2011") UserForm1.ListBox4.AddItem ("2012") UserForm1.ListBox4.AddItem ("2013") UserForm1.ListBox4.AddItem ("2014") UserForm1.Show End Sub     Private Sub CommandButton3_Click() Dim MOIS As String MOIS = UserForm1.ListBox3.Value ANNEE = UserForm1.ListBox4.Value   end sub

---

Je vais tenter d'expliquer mon application : ma première fenêtre est composée de 2 boutons, lorsque l'on clique sur l'un d'entre eux cela déclenche le code de CommandButton2_Click. On a alors une autre fenêtre qui s'ouvre et l'on doit choisir un mois et une année puis on clique sur un bouton qui donne un résultat. La comparaison de date se fait dans ce dernier bouton.
J'espère que cette brève description facilitera l'aide que l'on pourra m'apporter.

Pour récupérer le N° du mois, c'est

Code:

---

MOIS = UserForm1.ListBox3.Listindex

---

Ce code me renverra la position de mon MOIS dans ma liste non ?
COmment comparer après avec la date du jour ???

Code:

---

if Month(Now) > Me.Listbox1.listindex then

---

ou l'inverse ;)

Bonjour à tous,

Unfcool :

Je me doutais que vos variables MOIS et ANNEE étaient en texte.

Une autre solution simple, sans remettre en cause celles qui vous sont proposées :

Code:

---

1 2 3

m = Mid(Date, 4, 2) a = Mid(Date, 7, 4) If MOIS > m And ANNEE >= a Or ANNEE > a Then.......

---

amicalement.

J'ai pris la solution de ouskeln'or et pour l'année je fais pareil avec year ??

Code:

---

1 2	If Month(Now) > UserForm1.ListBox3.ListIndex And Year(Now) >= UserForm1.ListBox4.ListIndex Or Year(Now) > UserForm1.ListBox4.ListIndex Then

---

Je crois que ça ne marche pas ça

Et ça, ça ne marche pas?

Code:

---

If DateAdd("M", 1, CDate("1 " & UserForm1.ListBox3.Text & " " & UserForm1.ListBox4.Text)) > Date Then

---

Je pense que pour l'année tu la sélectionnes dans ta liste, donc, du prends sa valeur, pas l'index dans la liste.

Code:

---

If Val(Me.ComboAnnee.list(ComboAnnee.listindex)) > Year(Now) then

---

La je prends la valeur sélectionnée dans la liste
Pour le mois j'ai pris l'index dans la liste parce que je soupçonnais que janvier avait l'index 1 et décembre l'index 12.
Pendant que j'y suis : Me. peut être utilisé à la place du nom de l'userform actif. ;)
A+

Merci pour tout mais au final j'ai adopté une autre solution : changement radical de mon programme:arf: