Affichage Dynamique d'images dans un UserForm

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. Contributeur
    Bonjour,

    voici un exemple à télécharger:

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

    1
    1. Super merci c'est à peu prêt ce que je voulais, je devrais trouver mon bonheur dans le code :)
      0
    2. 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. Contributeur
      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