UserForm et image Gif

[Atiom]

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.

 

[LaCeline]

Bonjour,

Une façon parmi tant d'autres

laceline

P.S. Oupps, fichier corrigé

 

[Atiom]

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]

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

 

[laetitia90]

bonjour tous 🙂🙂

Philippe 🙂🙂 j'avais avec une var....public
code user

Private Sub UserForm_Initialize()
x = x + 1: es
End Sub
Private Sub CmdB_Fermer_Click()
Unload Me
End Sub

code dans un module standard

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]

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