Affichage Dynamique d'images dans un UserForm

Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019
- - Dernière réponse : cs_Le Pivert
Messages postés
6270
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 octobre 2019
- 11 juil. 2019 à 11:17
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
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
6270
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 octobre 2019
397
1
Merci
Bonjour,

voici un exemple à télécharger:


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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 62623 internautes nous ont dit merci ce mois-ci

JHache1801_
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019
-
Super merci c'est à peu prêt ce que je voulais, je devrais trouver mon bonheur dans le code :)
JHache1801_
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019
-
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
cs_Le Pivert
Messages postés
6270
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 octobre 2019
397 -
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


@+
Commenter la réponse de cs_Le Pivert