Discussion :

[CyrilD]

Bonjour,

j'ai un petit soucis et j'aimerais bien le réparer avec votre aide.

Donc comme le dis le titre, j'ai un formulaire Excel sur lequel il y a 1 image.

Ce que je veux, c'est que lorsque je clique sur un bouton, ca lance une fonction et dans cette fonction, je veux changer la source de l'image affichée toutes les secondes.
Voici ce que j'ai fais :

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
 
    Dim PauseTime, Start
    PauseTime = 1    ' Définit la durée.
 
    'Image 1 :
    Start = Timer
    Do While Timer < Start + PauseTime
    Loop
    userform1.image1.Picture = LoadPicture(".../bla1.jpg")
    'Image 2 :
    Start = Timer
    Do While Timer < Start + PauseTime
    Loop
    userform1.image1.Picture = LoadPicture(".../bla2.jpg")
    ...
    'Image X :
    Start = Timer
    Do While Timer < Start + PauseTime
    Loop
    userform1.image1.Picture = LoadPicture(".../blaX.jpg")

Donc, le résultat de cette macro, c'est que ca patiente pendant toute la durée des timers si X = 10, j'attendrais 10 secondes et ca affiche bien pour la dernière image bla10.jpg mais cela n'affiche rien entre, il n'y a pas de défilements.
On passe de bla1 à bla10 sans voir les bla2, bla3 ... bla9

Comment faut il faire alors ?

Merci de vos réponses

[mayekeul]

bonjour,

une seconde, c'est peu a mon avis pour qu'il aie le temp de bien rafraichir

néanmoins tu peux essayer de mettre entre chaque image

Code :

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

userform1.Repaint

[CyrilD]

Merci, ça marche nickel

En faite, je dis une seconde mais c'est plutot 0.05 sec que je fais