Affichage Dynamique d'images dans un UserForm

JHache1801_ Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'aurais aimé avoir de l'aide pour faire défiler les photos contenues dans un dossier spécifique sur un UserForm (10 secondes entre chaque photos par exemple)

Après de nombreux essais je n'y arrive toujours pas...

Cdlmnt



Configuration: Windows / Edge 16.16299
A voir également:

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voici un exemple à télécharger:


https://www.cjoint.com/c/IGkj2qJO4SQ

1
JHache1801_ Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Super merci c'est à peu prêt ce que je voulais, je devrais trouver mon bonheur dans le code :)
0
JHache1801_ Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Juste un soucis, je n'arrive pas à comprendre, lorsqu'on est en mode diapo, comment il faut faire pour revenir à la première image lorsque la dernière est lu .... :/

Merci
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
changer ceci dans le module Timer

Sub Diapo()
 If UserForm1.ListBox1.ListIndex = UserForm1.ListBox1.ListCount - 1 Then 'après la dernière image
UserForm1.ListBox1.ListIndex = 0 'on redemarre à la 1ère image
    End If
On Error Resume Next
NumNom = UserForm1.ListBox1.ListIndex
   NumNom = NumNom + 1
   UserForm1.ListBox1.ListIndex = NumNom
End Sub


@+
0