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 : Sélectionner tout - Visualiser dans une fenêtre à part
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