Dim cellule As Range Set cellule = Worksheets("Feuil1").Range("A1") While Not IsEmpty(cellule) If DateDiff("m", Now, cellule.Value) < 6 Then MsgBox "Attention " & cellule.Address Set cellule = cellule.Offset(1, 0) Wend
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questioni = 0 While i < 11 MsgBox i i = i + 1 Wend