Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

UserForm et image Gif

Atiom

XLDnaute Occasionnel
Bonjour le forum,

Lorsque on lance une UserForm ( avec une image gif à l’intérieur ) par un bouton est-t-il possible que à chaque clique l’image puisse changer ?

Exemple :
1 Clique – Affiche Image Gif 1
Fermeture de UserForm

2 Clique – Affiche Image Gif 2
Fermeture de UserForm

3 Clique – Affiche Image Gif 3
Fermeture de UserForm

Etc… etc.
Ci-joint un petit fichier.

Merci de votre aide.
 

Pièces jointes

  • Lance_gif.xls
    44 KB · Affichages: 31

Atiom

XLDnaute Occasionnel
Salut laceline,

Merci beaucoup pour ta proposition. Je ne sais pas ce cela fonction chez toi mas j’ai bon cliqué sur image suivante, l’image ne change pas.

Mais si possible je ne souhaiterais pas passer pour un bouton image suivante mais plutôt sur quelque chose comme :

UserForm_Initialize

Image1 = "http://www.icone-gif.com/gif/vehicules/bateaux/bateaux-gif-010.gif"

Unload Me

Image2 = "http://www.icone-gif.com/gif/vehicules/bateaux/bateaux-gif-041.gif"

Unload Me

Etc…

Vraiment à chaque lancement de l’UserForme on passe à l’image suivante et on referme et ainsi de suite.

Merci
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Bonjour à tous,

voir fichier joint (si j'ai bien compris la question)
il faut fermer l'USF et ensuite le rouvrir pour passer à l'animation suivante

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    20.2 KB · Affichages: 106

laetitia90

XLDnaute Barbatruc
bonjour tous

Philippe j'avais avec une var....public
code user
VB:
Private Sub UserForm_Initialize()
x = x + 1: es
End Sub
Private Sub CmdB_Fermer_Click()
Unload Me
End Sub

code dans un module standard

VB:
Public x As Byte
Sub es()
If x = 4 Then x = 1
With UserForm1
If x = 1 Then .WebBrowser1.Navigate "http://www.icone-gif.com/gif/vehicules/bateaux/bateaux-gif-010.gif"
If x = 2 Then .WebBrowser1.Navigate "http://www.icone-gif.com/gif/vehicules/bateaux/bateaux-gif-041.gif"
If x = 3 Then .WebBrowser1.Navigate "http://www.icone-gif.com/gif/vehicules/camions/256-dtruckb3.gif"
End With
End Sub
 

Atiom

XLDnaute Occasionnel
Les deux solutions fonctionnent parfaitement :


Merci beaucoup Philippe et Laetitia.

Pour le fun ci-joint la proposition de laetitia90 :


Bon après-midi et à bientôt.

Amicalement
 

Pièces jointes

  • 112.xlsm
    21.8 KB · Affichages: 36

Discussions similaires

Réponses
4
Affichages
349
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…