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

1 réponse

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    voici un exemple à télécharger:

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

    1
    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
    2. 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
    3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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