Ben Becker
XLDnaute Nouveau
Bonjour,
j'ai un petit problème à vous soumettre : je voudrais afficher des gifs différents en fonction de la valeur de ma cellule U3 (valeurs possibles :1,2,3,4,5).
Le code que j'ai appliqué pour le webbrowser fonctionne à ceci près qu'à chaque fois que la valeur de U3 change, le gif ne se met pas à jour directement : il faut que j'aille cliquer sur Executer dans vba, et là le nouveau gif apparait.
Existe-t'il un moyen de faire apparaitre le gif dès le changement de cellule sans devoir intervenir ?
Ci-dessous le code utilisé :
Private Sub Worksheet_Activate()
If Sheets("Feuil1").Cells(3, 21).Value = 1 Then
WebBrowser1.Navigate "D:\documents\...\gif1.GIF"
End If
If Sheets("Feuil1").Cells(3, 21).Value = 2 Then
WebBrowser1.Navigate "D:\documents\...\gif2.GIF"
End If
If Sheets("Feuil1").Cells(3, 21).Value = 3 Then
WebBrowser1.Navigate "D:\documents\...\gif3.GIF"
End If
If Sheets("Feuil1").Cells(3, 21).Value = 4 Then
WebBrowser1.Navigate "D:\documents\...\gif4.GIF"
End If
If Sheets("Feuil1").Cells(3, 21).Value = 5 Then
WebBrowser1.Navigate "D:\documents\...\gif5.GIF"
End If
End Sub
Private Sub webBrowser1_documentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no"
WebBrowser1.Document.body.TopMargin = 0
WebBrowser1.Document.body.BottomMargin = 0
WebBrowser1.Document.body.LeftMargin = 0
WebBrowser1.Document.body.RightMargin = 0
WebBrowser1.Document.body.Style.BorderStyle = "none"
WebBrowser1.Document.bgColor = RGB(153, 204, 255)
End Sub
Merci par avance
Ben
j'ai un petit problème à vous soumettre : je voudrais afficher des gifs différents en fonction de la valeur de ma cellule U3 (valeurs possibles :1,2,3,4,5).
Le code que j'ai appliqué pour le webbrowser fonctionne à ceci près qu'à chaque fois que la valeur de U3 change, le gif ne se met pas à jour directement : il faut que j'aille cliquer sur Executer dans vba, et là le nouveau gif apparait.
Existe-t'il un moyen de faire apparaitre le gif dès le changement de cellule sans devoir intervenir ?
Ci-dessous le code utilisé :
Private Sub Worksheet_Activate()
If Sheets("Feuil1").Cells(3, 21).Value = 1 Then
WebBrowser1.Navigate "D:\documents\...\gif1.GIF"
End If
If Sheets("Feuil1").Cells(3, 21).Value = 2 Then
WebBrowser1.Navigate "D:\documents\...\gif2.GIF"
End If
If Sheets("Feuil1").Cells(3, 21).Value = 3 Then
WebBrowser1.Navigate "D:\documents\...\gif3.GIF"
End If
If Sheets("Feuil1").Cells(3, 21).Value = 4 Then
WebBrowser1.Navigate "D:\documents\...\gif4.GIF"
End If
If Sheets("Feuil1").Cells(3, 21).Value = 5 Then
WebBrowser1.Navigate "D:\documents\...\gif5.GIF"
End If
End Sub
Private Sub webBrowser1_documentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no"
WebBrowser1.Document.body.TopMargin = 0
WebBrowser1.Document.body.BottomMargin = 0
WebBrowser1.Document.body.LeftMargin = 0
WebBrowser1.Document.body.RightMargin = 0
WebBrowser1.Document.body.Style.BorderStyle = "none"
WebBrowser1.Document.bgColor = RGB(153, 204, 255)
End Sub
Merci par avance
Ben