Bonsoir Damos, le Forum
Bizarre ton histoire, je viens de faire ce test (horrible test il y a des Select de partout !! lol) dans un classeur vierge contenant trois feuilles :
Sub AppliUpDateScreenTest()
Dim i As Byte, y As Byte
Dim TheTest As Boolean
Application.ScreenUpdating = False
TheTest = Application.ScreenUpdating
MsgBox TheTest
For i = 1 To 3
With Sheets(i)
.Select
For y = 1 To 100
.Cells(y, 1).Select
Selection.Value = Now
Next
End With
Next
Application.ScreenUpdating = True
TheTest = Application.ScreenUpdating
MsgBox TheTest
End Sub
On lance la macro et on ne voit rien se passer sauf qu'on fini en feuille trois. Le Message apparait 2 fois : une Fois False, une Fois True....
Essaies, et dis-nous ?
Bonne Soirée
@+Thierry
PS !!
Si un jour vous devez marquer la date et l'heure courante sur toutes les celulles de A1 à A100 de la feuille 1 à 3, (macro hyper ultra utile !!!) surtout n'utilisez pas le test ci-dessus mais plutôt ceci :
Sub TheTest()
Dim i As Byte, y As Byte
For i = 1 To 3
With Sheets(i)
For y = 1 To 100
.Cells(y, 1) = Now
Next
End With
Next
End Sub