Affichage Dynamique d'images dans un UserForm

Fermé
JHache1801_ Messages postés 19 Date d'inscription lundi 8 juillet 2019 Statut Membre Dernière intervention 30 août 2019 - 10 juil. 2019 à 11:45
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 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
A voir également:

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
10 juil. 2019 à 11:55
Bonjour,

voici un exemple à télécharger:


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

1
JHache1801_ Messages postés 19 Date d'inscription lundi 8 juillet 2019 Statut Membre Dernière intervention 30 août 2019
10 juil. 2019 à 13:36
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 lundi 8 juillet 2019 Statut Membre Dernière intervention 30 août 2019
10 juil. 2019 à 14:39
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 11 juil. 2019 à 11:40
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