XL 2013 Macro pour afficher les feuilles avec une tempo

[CHLOE90]

Bonsoir le Forum
J'ai un peit souci avec mon classeur excel.
Je souhaiterais afficher les feuilles de mon classeur les unes après les autres depuis la 3eme jusqu'à la dernière avec une temporisation de 3 secondes (pour l'exercice)
J'ai écrit ce bout de code (enfin j'ai plutôt agrégé différents petits bouts trouvés ici ou là)

Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub NextSheetTemporisation()

Dim sht As Integer
Sheets(3).Select
' Parcourt toute les feuilles du classeur
For sht = 3 To ThisWorkbook.Worksheets.Count
Sheets(sht).Select
Sleep 3000
Next
End Sub

Lorsque j'exécute ma macro pas à pas (FN -F8) ça marche, je vois bien défiler mes feuilles une à une avec une temporisation de 3 secondes, mais lorsque je la lance (FN - F5) je ne vois que la dernière feuille.

Merci beaucoup à celui ou celle qui lira mon message et qui pourra m'apporter de l'aide.

Bonne soirée à tous
Chloé

 

[roro69]

Bonsoir à tester:

Sub parcFeuille()
Dim x 
    Dim i As Integer
     Dim Pause As Double
  
    Pause = 5 'Pause en seconde    '<-----*****  5 secs pour teste
 
         For i = 3 To ThisWorkbook.Worksheets.Count
  
            Worksheets(i).Select 'Selection feuille
  
            x = Timer
             While Timer - x < Pause 'la pause
                DoEvents        '<----arret de la macro
             Wend
        Next i
End sub

Bonne soirée

 

[CHLOE90]

Merci Roro, ça me semble fonctionner parfaitement
Belle soirée à tous
Chloé

 

[mapomme]

Bonsoir à tous,

Une autre piste:

Sub parcFeuille()
Const sec = 3
Dim i&
  For i = 3 To ThisWorkbook.Worksheets.Count - 1
    Worksheets(i).Activate
    Application.Wait Now() + sec / 24 / 60 / 60
  Next i
  Worksheets(i).Activate
End Sub