age de présentation

Sub presentation()
Dim pausetime, start

Workbooks("gestion_client").Worksheets("feuil4").Activate
Worksheets("feuil1").Visible = False
Worksheets("feuil2").Visible = False
Worksheets("feuil3").Visible = False
Worksheets("feuil4").Visible = True

'affichage de la page de présentation pendant 10s
pausetime = 10    ' Définit la durée.
    start = Timer    ' Définit l'heure de début.
    Do While Timer < start + pausetime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
   

Worksheets("feuil1").Visible = True
Worksheets("feuil2").Visible = True
Worksheets("feuil3").Visible = True
Worksheets("feuil4").Visible = False

End Sub

sa ne marche pas???pourquoi???

A+
Exploreur

Hello S_M_E

Option Explicit

Private Sub UserForm_Click()    ' ou dans un Macro avec CTRL+s pour Slider

Worksheets("Feuil4").Visible = True
Worksheets("Feuil1").Visible = True
Worksheets("Feuil2").Visible = True
Worksheets("Feuil3").Visible = True

Worksheets("Feuil4").Activate
Worksheets("Feuil1").Visible = False
Worksheets("Feuil2").Visible = False
Worksheets("Feuil3").Visible = False
PauseTime = 5
Start = 10
Call Timer_Slide
Worksheets("Feuil1").Visible = True
Worksheets("Feuil1").Activate
Worksheets("Feuil4").Visible = False
PauseTime = 5
Start = 10
Call Timer_Slide
Worksheets("Feuil2").Visible = True
Worksheets("Feuil2").Activate
Worksheets("Feuil1").Visible = False
PauseTime = 5
Start = 10
Call Timer_Slide
' insi de suite pour les autres feuilles
'========================================'
Worksheets("Feuil4").Visible = True
Worksheets("Feuil1").Visible = True
Worksheets("Feuil2").Visible = True
Worksheets("Feuil3").Visible = True

End Sub
----------------------------------------------------------
Public Sub Timer_Slide()

    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
End Sub

A pus sur VBFrance.com
42wawa42