Peut-on lancer des gif animer aléatoirement à chaque ouverture de l'userform? Dans le feuille "GIF" j'ai 20 gif animé qui se trouve dans mon dossier: C:\Users\geoffroy\Documents\COMPTE_MAISON\Image gif\ WebBrowser1 .Navigate "about:<html><body scroll='no'>" & "<img src='C:\Users\geoffroy\Documents\COMPTE_MAISON\Image gif\peintre.gif'></img></body></html>" WebBrowser2 .Navigate "about:<html><body scroll='no'>" & "<img src='C:\Users\geoffroy\Documents\COMPTE_MAISON\Image gif\clavier.gif'></img></body></html>" J'aimerais, si c'est possible, à chaque ouverture de [Lancer] la macro va chercher aléatoirement un gif dans le tableau "T_Gif_Animé" pour WebBrowser1 et WebBrowser2 ? merci ci-joint fichier exemple: Ge0ffroy...

Gif animé aléatoirement dans UserForm

Le 18/02/2023 à 16:40

Bonjour,

Peut-on lancer des gif animer aléatoirement à chaque ouverture de l'userform?

Dans le feuille "GIF" j'ai 20 gif animé qui se trouve dans mon dossier: C:\Users\geoffroy\Documents\COMPTE_MAISON\Image gif\

WebBrowser1.Navigate "about:<html><body scroll='no'>" & "<img src='C:\Users\geoffroy\Documents\COMPTE_MAISON\Image gif\peintre.gif'></img></body></html>"

WebBrowser2.Navigate "about:<html><body scroll='no'>" & "<img src='C:\Users\geoffroy\Documents\COMPTE_MAISON\Image gif\clavier.gif'></img></body></html>"

J'aimerais, si c'est possible, à chaque ouverture de [Lancer] la macro va chercher aléatoirement un gif dans le tableau "T_Gif_Animé" pour WebBrowser1 et WebBrowser2 ?

merci

ci-joint fichier exemple:

Ge0ffroy

35gif-aleatoire2.xlsm (73.11 Ko)

Le 18/02/2023 à 20:39

Bonsoir Ge0ffroy,

Ci-dessous la macro modifiée pour ta demande.

Option Explicit
Private Sub UserForm_Initialize()
Dim Img1, Img2, Chemin1, Chemin2 As String
Dim One, Two As Integer
'Aléa pour le 1ier Gif puis le 2ième sans doublon d'image
One = WorksheetFunction.RandBetween(2, 21)
Retour:
Two = WorksheetFunction.RandBetween(2, 21)
If Two = One Then GoTo Retour
Img1 = Range("A" & One)
Img2 = Range("A" & Two)
     '------------ image animée gif --------------
'Selon emplacement et choix aléatoire d'image vers chacun des WebBrowsers
Chemin1 = "C:\Users\geoffroy\Documents\COMPTE_MAISON\Image gif\" & Img1
Chemin2 = "C:\Users\geoffroy\Documents\COMPTE_MAISON\Image gif\" & Img2
    WebBrowser1.Navigate "about:<html><body scroll='no'>" & "<img src='" & Chemin1 & "'></img></body></html>"
    WebBrowser2.Navigate "about:<html><body scroll='no'>" & "<img src='" & Chemin2 & "'></img></body></html>"
 End Sub

Note: les images GIF doivent être de même taille. Bon affichage.