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

WebBrowser

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

maval

XLDnaute Barbatruc
Bonsoir

je suis à la recherche du code pour visualisé un GIF animé en fonction du choix de la TextBox.
En sachant que les Gif se trouve "J:\Flag;
je vous remercie de votre aide
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : WebBrowser

De quoi?

Si tu veux afficher l'image de l'acteur, il te suffit de remplacer l'image du drapeau par celle de l'acteur. Et il faudrait savoir ce que tu veux au juste.

Tu parle de quoi ici d'acteurs ou de pays???
 
Dernière édition:
Vote positif 0 Vote négatif
Re : WebBrowser

Re Max

Volà comment il faut que tu fasse, c'est un exemple à toi de l'adapter.

Code: 
Private Sub ComboBox1_Change()
Dim cel As Range

If ComboBox1 = "" Then: TextBox1 = "": Me.WebBrowser1.Visible = False
TextBox1 = ComboBox1
On Error Resume Next
Me.WebBrowser1.Visible = True

Largeur = WebBrowser1.Width * 100 / 100
Hauteur = WebBrowser1.Height * 100 / 100

With Sheets("Acteurs").Range("a2:b11")
Set cel = .Find(TextBox1, , xlValues)
If Not cel Is Nothing Then
premaddress = cel.address
Do
'TextBox1 = cel.Offset(0, 1)
'TextBox2 = cel.Offset(0, 1)
'TextBox3 = cel.Offset(0, 1)
'TextBox4 = cel.Offset(0, 1)
WebBrowser1.Navigate "about:<html><body scroll='no'><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & "img src='" & Chemin & cel.Offset(0, 1) & ".gif" & "'></img></body></html>"
Loop While Not cel Is Nothing And cel.address <> premaddress
End If
End With
End Sub
 
Vote positif 0 Vote négatif
Re : WebBrowser

Re Max

Oubien comme ceci alors. En PJ. Il faudra ajouter les images, et modifier le chemin; et prête attention à comment j'ai préparer la feuille. Si deux pays identiques renommer la deuxième image France1 USA1 etc., sinon elle reste figée dans webbrowser2.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : WebBrowser

Re

Premièrement je te remercie beaucoup. Dommage que non de pays ne peut être identique, j'ai essayer de mettre un troisième WebBrowser j'ai bien le nom et le pays mais le drapeaux, regarde j'ai fait ceci:
Code: 
 'Option Explicit

Private Declare PtrSafe Function FindWindowA& Lib "User32" _
    (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare PtrSafe Function EnableWindow& Lib "User32" _
    (ByVal hWnd&, ByVal bEnable&)
Private Declare PtrSafe Function GetWindowLongA& Lib "User32" _
    (ByVal hWnd&, ByVal nIndex&)
Private Declare PtrSafe Function SetWindowLongA& Lib "User32" _
    (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)

Private Sub UserForm_Initialize()
Dim i As Integer, image1, image2, image3
    
    With Sheets("Acteurs")
        For i = 3 To .Range("A65536").End(xlUp).Row
        ComboBox1 = .Range("A" & i)
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("A" & i)
    Next i
    End With
   
image1 = Chemin & TextBox2.Text & ".gif"
WebBrowser1.Navigate "about:<html><body scroll='no'><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & "img src='" & image1 & "'></img></body></html>"

image2 = Chemin & TextBox4.Text & ".gif"
WebBrowser2.Navigate "about:<html><body scroll='no'><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & "img src='" & image2 & "'></img></body></html>"

image3 = Chemin & TextBox6.Text & ".gif"
WebBrowser3.Navigate "about:<html><body scroll='no'><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & "img src='" & image2 & "'></img></body></html>"

    Dim Fichier As String
    Dim img As Long
    Dim hWnd As Long
    
    Fichier = ThisWorkbook.Path & "\terre.ico"
    img = Len(Dir(Fichier))
    If img = 0 Then Exit Sub
    img = ExtractIconA(0, Fichier, 0)
    SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, img
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
 End Sub

Private Sub UserForm_Activate()
Dim i As Long

Me.ComboBox1 = ""
    
For i = 1 To 6
Me.Controls("TextBox" & i) = ""
Next i

Me.WebBrowser1.Visible = False
Me.WebBrowser2.Visible = False
Me.WebBrowser3.Visible = False

    Dim hWnd As Long
    hWnd = FindWindowA("XLMAIN", Application.Caption)
    EnableWindow hWnd, 1

End Sub

Private Sub ComboBox1_Change()
Dim cel As Range, i As Long
Dim image1, image2, image3

If ComboBox1 = "" Then
For i = 1 To 6
Me.Controls("TextBox" & i) = ""
Next i
Me.WebBrowser1.Visible = False
Me.WebBrowser2.Visible = False
Me.WebBrowser3.Visible = False
End If

Me.WebBrowser1.Visible = True
Me.WebBrowser2.Visible = True
Me.WebBrowser3.Visible = True

Largeur = WebBrowser1.Width * 100 / 100
Hauteur = WebBrowser1.Height * 100 / 100

Largeur = WebBrowser2.Width * 100 / 100
Hauteur = WebBrowser2.Height * 100 / 100

Largeur = WebBrowser3.Width * 100 / 100
Hauteur = WebBrowser3.Height * 100 / 100

With Sheets("Acteurs").Range("a2:a11")
Set cel = .Find(ComboBox1, , xlValues, xlWhole)
If Not cel Is Nothing Then
TextBox1 = cel.Offset(0, 1)
TextBox2 = cel.Offset(0, 2)
TextBox3 = cel.Offset(0, 3)
TextBox4 = cel.Offset(0, 4)
TextBox5 = cel.Offset(0, 5)
TextBox6 = cel.Offset(0, 6)
End If
End With

image1 = Chemin & TextBox2.Text & ".gif"
image2 = Chemin & TextBox4.Text & ".gif"
image3 = Chemin & TextBox6.Text & ".gif"

On Error Resume Next
If TextBox2 <> "" And TextBox4 <> "" Or WebBrowser2 = WebBrowser1 Then
WebBrowser1.Navigate "about:<html><body scroll='no'><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & "img src='" & image1 & "'></img></body></html>"

WebBrowser2.Navigate "about:<html><body scroll='no'><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & "img src='" & image2 & "'></img></body></html>"
End If
End Sub

Private Sub CmdOn_Click()
Me.WebBrowser1.Refresh
Me.WebBrowser2.Refresh
Me.WebBrowser3.Refresh

End Sub

Private Sub CmdOff_Click()
Me.WebBrowser1.Stop
Me.WebBrowser2.Stop
Me.WebBrowser3.Stop
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

A moins que je me suis planter?

Bonne soirée
 
Vote positif 0 Vote négatif
Re : WebBrowser

Salut LoneWolf

Il n'y a pas de problème tous fonctionne j'ai vue l'erreur et je te remercie encore.
Maintenant si le temps te le permet et que tu veut bien regarder le problème de ne pas pouvoir mettre deux fois le même pays parce que sa me pose un problème mais bon....!
je te souhaite une bonne journée
 
Vote positif 0 Vote négatif
Re : WebBrowser

Re

Oui je sais bien mais j'ai une liste d'acteurs environ 1200 je ne peut pas mettre France, france1, france3 ect...
C'était pour cela que je te disais s'il était possible de faire autrement?
 
Vote positif 0 Vote négatif
Re : WebBrowser

Et bien comme tu vois, non.

Dans une cellule En X1 par exemple, tu écrit 1. Dans une autre colonne =A1&"" &$X$1. Copie les images dans un nouveau classeur, et par VBA tu les renomme Image = Image&1.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Formule excel
Réponses
7
Affichages
303
eastwick
  • Question Question
Microsoft 365 Suppression barres de défilement dans WebBrowser
2
Réponses
22
Affichages
1 K
patricktoulon
B
  • Question Question
XL 2021 trouver date anniversaire dans calendrier pour recopie
Réponses
12
Affichages
232
dysorthographie
B
  • Question Question
XL 2021 Recopie anniversaire dans calendrier
Réponses
7
Affichages
200
Dranreb
  • Résolu(e)
XL 2013 lancement de phase de test de l’exporter html pdf coloration syntaxique version 2025/2026
2
Réponses
27
Affichages
1 K
patricktoulon
G
  • Question Question
Microsoft 365 Colorer un graphique x-y scatter
Réponses
9
Affichages
277
bsalv
B
E
  • Question Question
Microsoft 365 agrandir la liste
2
Réponses
21
Affichages
414
ebe
E
B
  • Question Question
XL 2021 Recopie celle date et 3cellules consécutives avec des nombres
2
Réponses
17
Affichages
312
job75
E
  • Question Question
Microsoft 365 agrandir la liste de recherche
Réponses
4
Affichages
508
ebe
E
  • Résolu(e)
XL 2021 Mise en place d'une formule pour completer un un tableau par action en fonction d'un nom.
Réponses
5
Affichages
405
Hecatonchire
H
B
  • Question Question
XL 2021 Ajout dans ligne vba
Réponses
2
Affichages
416
sylvanu
B
  • Question Question
XL 2016 problèmes de formules et liste déroulantes avec le planning
Réponses
1
Affichages
65
sylvanu
G
  • Résolu(e)
XL 2010 Faire patienter l'utilisateur avec le défilement dans un webbrowser
Réponses
5
Affichages
290
Gnedea
G
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
301
Hecatonchire
H
B
  • Question Question
XL 2013 Corriger mes codes
2
Réponses
25
Affichages
873
Valtrase
E
  • Question Question
Microsoft 365 reference ou famille
2 3
Réponses
32
Affichages
496
Piment
P
C
  • Question Question
XL 2019 Tableau Excel
Réponses
4
Affichages
227
Caller
C
E
  • Question Question
Microsoft 365 couleur et ligne
Réponses
6
Affichages
256
cathodique
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
159
LaurentVasseur
L
L
  • Résolu(e)
XL 2021 Macro - Liste déroulante
Réponses
4
Affichages
113
Piment
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…