Affichage Dynamique d'images dans un UserForm

JHache1801_ Messages postés 19 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

voici un exemple à télécharger:


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

1
JHache1801_ Messages postés 19 Statut Membre
 
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 Statut Membre
 
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 8437 Statut Contributeur 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

Discussions similaires

Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport
Utilisateur anonyme -
TomH. -

13 réponses
calcule nombre des pixels "noir" dans un image (noir/blanc)
neji55 -
nath84150 -

3 réponses
Nom de champs du tableau croisé dynamique non valide
Kazooie123 -
SajDri -

6 réponses
impossible de voir les photos et videos sur une conversation messenger
cortomaltese83 -
Oceii -

4 réponses