Calvus
XLDnaute Barbatruc
Bonsoir le forum,
Encore un truc bizarre, ou que je n'arrive pas à voir...
Dans cette partie de code :
Le Exit For fonctionne parfaitement. On sort immédiatement de la boucle.
Dans cette partie de code :
Le Exit For ne fonctionne pas.
Pouvez vous me dire pourquoi ???
Je précise que la condition est bien vérifiée, que le If s'exécute, et que le Exit for est bien lu, mais la boucle continue.
Merci
Encore un truc bizarre, ou que je n'arrive pas à voir...
Dans cette partie de code :
VB:
For k = 3 To 13 Step 2
For l = 3 To 7
DernJour = DateSerial(Feuil1.[L2], Month(1 & "/" & ActiveSheet.Name) + 1, 1) - 1
If k = 13 And l < 5 Then Cellule_Actuelle = Day(ActiveSheet.Cells(k, l))
For a = 2 To 14
If ActiveSheet.Cells(k, l) = Feuil1.Cells(a, 16) And ActiveSheet.Cells(k, l) < DernJour Then
ActiveSheet.Cells(k + 1, l).Interior.Color = 9277427
l = l + 1: Exit For
If l = 8 Then l = 3
End If
Next
Le Exit For fonctionne parfaitement. On sort immédiatement de la boucle.
Dans cette partie de code :
VB:
Dim f, g
For f = 3 To 13 Step 2
For g = 3 To 8
If ActiveSheet.Cells(f, g) = Date_de_ce_Mois + 7 Then ActiveSheet.Cells(f + 1, g).Select: Exit For
Next
Next
Le Exit For ne fonctionne pas.
Pouvez vous me dire pourquoi ???
Je précise que la condition est bien vérifiée, que le If s'exécute, et que le Exit for est bien lu, mais la boucle continue.
Merci