Discussion :

[CH'DUJ]

Bonjour a tous

je cale sur un problème de pause
pour une présentation de macro j'affiche une première feuille d'un classeur avec une image et je voudrais après quelques secondes afficher une autre feuille dans ce même classeur.
la pause se fait pas au bon moment j'arrive directement sur le seconde feuille.
j'ai testé SLEEP et Application.Wait Time + TimeSerial(0, 0, 7)
si quelqu'un à une bonne solution je suis preneur .....

merci d'avance pour vos réponses

[Marc-L]

Bonjour,

les deux fonctionnent, le problème est ailleurs …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[unparia]

Bonjour
Si l'image est "lourde", elle met un temps quelquefois significatif à s'afficher. Si ton instruction de pause est faite juste après celle de chargement, le temps de chargement et d'affichage "rognera" celui de la pause.
C'est pire (mais je ne le sais pas), si l'instruction de pause interrompt également le chargement et/ou l'affichage.
Une stratégie, alors (mais à toi de gérer, car j'estime personnellement que l'on s'écarte là de la vocation d'un tableur) : utiliser un/des contrôles image(s) invisible(s) préchargés et rendus visibles tour à tour, au moment opportun (de l'acrobatie, quoi ...)
Ne crois-tu pas que tu ferais mieux d'utiliser à cette fin des outils ad-hoc et non Excel ? Ils ne manquent pas. Je connais au moins un forumeur sur ce forum dont c'est le principal "dada".

[CH'DUJ]

En fait c'est vrai que les 2 fonctions fonctionnent mais mon objectif et au démarrage de ma macro faire apparaître une première page en pleine écran (j'utilise Application.DisplayFullScreen = True)puis attendre 5 secondes et passer a une autre page toujours en plein écran.
et je cherche depuis pas mal de temps je ne trouve pas le code me permettant de faire cela.
si une ame charitable arrive à me donner la bonne idée

merci a tous de votre aide

ci dessous mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub auto_open()
 
   Application.DisplayFullScreen = True
   ident
 
End Sub
 
 
Sub CinqSecondes()
 
Application.Wait Time + TimeSerial(0, 0, 5)
 
End Sub
 
 
Sub ident()
 
Worksheets("image 2").Activate
Cells(1, 1).Activate
 
     With Worksheets("image 2")
        .Application.DisplayFormulaBar = False
        .Application.ActiveWindow.DisplayHeadings = False
        .Application.ActiveWindow.DisplayGridlines = False
        .Application.DisplayFullScreen = True
     End With
 
CinqSecondes
 
Worksheets("image").Activate
 
     With Worksheets("image 1")
        .Application.DisplayFormulaBar = False
        .Application.ActiveWindow.DisplayHeadings = False
        .Application.ActiveWindow.DisplayGridlines = False
        .Application.DisplayFullScreen = True
     End With
 
 
End Sub

[clementmarcotte]

PowerPoint fait cela les doigts dans le nez, et sans macro.

Mais bien sûr, il faut demander au psychiatre d'installer une prothèse de la hanche et au mécanicien d'enlever une tumeur au cerveau.

[clementmarcotte]

Bonjour
Ne crois-tu pas que tu ferais mieux d'utiliser à cette fin des outils ad-hoc et non Excel ? Ils ne manquent pas. Je connais au moins un forumeur sur ce forum dont c'est le principal "dada".

Comme mon autre réponse est partie avant que je n'aie lue la tienne, je ne peux pas m'empêcher de dire : des noms, des noms.

[unparia]

Bonjour clementmarcotte
le pluriel n'est pas toujours nécessaire
amitiés