Comparaison de dates dans boucle

Bonjour,
Je n'arrive pas a comparer mes dates, en provenance de deux cellules differentes, afin de stopper ma boucle.
Aussi, ds cette boucle, j aimerai incrementer mon mois de 1 a chaque fois, sans faire un peu precis "+31"...
Si quelqu'un peut m'aider...

le code :

Code:

---

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

Sub DateManager() Dim Plage1 As Range, MaCellule As Range   Set Plage1 = Range("A1:BB1") For Each MaCellule In Plage1 If MaCellule.Value = "" Then If Int(CDbl(MaCellule)) <= Int(CDbl(Worksheets("Graph").Range("I21"))) Then MaCellule.Value = MaCellule.End(xlToLeft).Value + 31 End If End If Next End Sub

---

Merci d'avance

Bonjour
Déjà ici, quelque chose cloche

Code:

---

1 2	If MaCellule.Value = "" Then If Int(CDbl(MaCellule)) <=...

---

Si MaCellule est vide alors comparer la valeur de MaCellule à...

Explications non claires pour moi

PS: Pour ajouter un mois à une date, utilise

Code:

---

y=dateadd("m",1,x) 'x et y sont des dates

---

Alors, pour le code :

Code:

---

1 2 3 4 5

If MaCellule.Value = "" Then If (MaCellule<= Worksheets("Graph").Range("I21")) Then MaCellule.Value = MaCellule.End(xlToLeft).Value + 31 End If End If

---

Ici, je dis que si ma cellule est vide, alors je met la date dedans, jusqu'a atteindre ma condition... a savoir la date comprise dans :

Code:

---

Worksheets("Graph").Range("I21").

---

Merci pour les mois!!

Citation:

---

Ici, je dis que si ma cellule est vide, alors je met la date dedans

---

Quel date mettre dans MaCellule?

Ici

Code:

---

MaCellule.End(xlToLeft).Value + 31

---

Je met la date un mois apres la precedente ds la cellule,
sachant que d'autres sont remplies a la main avant (c'est du forcast
via la macro...)

Je rentre dans une autre cellule la date jusqu ou je veux faire du forecast.
Ensuite, ma macro icremente donc jusqu a la date defini dans

Code:

---

Worksheets("Graph").Range("I21")

---

D'ou la necessite de comparaison de date.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim MaCellule As Range Dim DerDate As Date   For Each MaCellule In Range("B1:BB1") If MaCellule.Value = "" Then DerDate = MaCellule.Offset(0, -1).Value If DateDiff("m", Worksheets("Graph").Range("I21"), DerDate) >= 0 Then Exit Sub MaCellule.Value = DateAdd("m", 1, DerDate) End If Next MaCellule

---

Tout marche nickel, c'est super!
Merci beaucoup!