Bonjour,
Quelqu'un aurait la solution à mon problème:
J'ai un Loop à l'infini qui ne s'arrete pas
Comment stopper?
Merci
Sub MiseEnGrasDesSamediEtDimanche()
Range("A4").Select
Do Until ActiveCell = ""
If Weekday(CDate(ActiveCell.Value)) = 1 Or Weekday(CDate(ActiveCell.Value)) = 7 Then
Selection.Font.Bold = True
.Interior.ColorIndex = 15
Else
Selection.Font.Bold = False
End If
ActiveCell.Offset(1, 0).Activate
Loop
Quelqu'un aurait la solution à mon problème:
J'ai un Loop à l'infini qui ne s'arrete pas
Comment stopper?
Merci
Sub MiseEnGrasDesSamediEtDimanche()
Range("A4").Select
Do Until ActiveCell = ""
If Weekday(CDate(ActiveCell.Value)) = 1 Or Weekday(CDate(ActiveCell.Value)) = 7 Then
Selection.Font.Bold = True
.Interior.ColorIndex = 15
Else
Selection.Font.Bold = False
End If
ActiveCell.Offset(1, 0).Activate
Loop