Animer un drapeau sur Userform (VBA)

**signorepel** · 01/07/2013, 16h40

Bonjour cher tous !
Novice en VBA et souhaitant apprendre et comprendre,
j'ai créé un userfor sur lequel j'ai inséré l'icone du drapeau de mon pays,
mais je ne connais pas le code pour qu'il s'anime, automatiquement que le UserForm s'affiche. Aidez-moi à construire le code d'animation s'il vous plaît ! Merci !

**EngueEngue** · 01/07/2013, 16h57

Que veux tu dire par s'animer ?

**signorepel** · 01/07/2013, 17h09

Le rendre "vivant"

**EngueEngue** · 01/07/2013, 17h10

Cool, bah écoute quand tu arriveras à rendre un drapeau "vivant" tu pourras postuler pour le prix Nobel

**PMO2017** · 01/07/2013, 19h54

Bonjour,

Essayez la démarche suivante
1) créez un UserForm1
2) dans sa fenêtre de code, copiez le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim WBS As Object 'WebBrowser
Set WBS = Me.Controls.Add("Shell.Explorer.2")
WBS.Navigate "about:<html><body scroll='no'><img src='http://www.gif-anime.org/im/gif/drapeau/benin/benin3.gif'></img></body></html>"
End Sub

3) lancez le UserForm1

**mercatog** · 01/07/2013, 20h51

PMO2017

Une précision quand même, il est clair qu'une connexion Internet est nécessaire.

Invité · 01/07/2013, 21h08

Salut,

Je pense qu'il a voulu montrer simplement le principe. C'est à dire d'utiliser une image GIF pour l'animation. Mais rien n'oblige à avoir une connexion internet. Seulement pour cette exemple présent-ci.

**signorepel** · 01/07/2013, 21h28

Bonsoir, j'ai accusé réception de votre code, je l'ai inséré. il fonctionne. Toutefois, le cadre dans lequel il se trouve est assez grand et j'aurais vous que la couleur de fond s'adapte à la couleur du userform. A défaut, c'est un travail que j'ai pas encore fini, mais je vous envoie le projet pour que vous voyiez par vous même. Merci pour l'aide précieuse.

Effectivement, rien n'oblige à avoir nécessairement une connexion internet. Dans ce cas, quel serait le code si l'image gif était sur mon ordinateur (sans connexion) ?

**casefayere** · 01/07/2013, 21h35

Bonsoir,
inspires-toi de ce fichier bien fait

bonne soirée

**mercatog** · 01/07/2013, 21h53

En utilisant un fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim WBS As Object
Dim Drapeau As String
 
Drapeau = "C:\Users\user\Desktop\Benin.Gif"
Set WBS = Me.Controls.Add("Shell.Explorer.2")
With WBS
    .Width = 90
    .Height = 70
    .Navigate "about:<html><body scroll='no'><img src='" & Drapeau & "'></img></body></html>"
End With
Set WBS = Nothing
End Sub

Edit: Beaux drapeaux gif

**signorepel** · 01/07/2013, 22h01

Bonsoir à tous !
Bonsoir PMO2017,
vous demander de m'aider à revoir le fichier que j'ai joint "BASE_PDF" surtout en ce qui concerne le recadrage du drapeau et la mise en conformité de la couleur du userform (même en dessous du drapeau). Tel que vous l'avez proposé, ça fonctionne très bien, mon inquiétude, c'est juste ce dont je viens de parler. Merci encore pour votre aide et merci aux autres posts, qui ne sont pas des moindre.

**casefayere** · 01/07/2013, 22h04

Bonjour mercatog, je suis toujours avec intérêt tes interventions dans les post, là je me suis trompé de fichier, celui-ci était qu'un exemple, voici celui que je voulais communiquer

**PMO2017** · 02/07/2013, 14h18

Bonjour,

signorepel Bonsoir, j'ai accusé réception de votre code, je l'ai inséré. il fonctionne. Toutefois, le cadre dans lequel il se trouve est assez grand et j'aurais voulu que la couleur de fond s'adapte à la couleur du userform.

J'ai traité
1) la suppression de la bordure du WebBrowser
2) l'application de la couleur de fonds du UserForm à celle du WebBrowser avec toutefois une restriction au fonctionnement qui est expliqué dans le code (voir les ###)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub UserForm_Initialize()
Dim WBS As Object 'WebBrowser
Set WBS = Me.Controls.Add("Shell.Explorer.2")
WBS.Navigate "about:<html><body scroll='no'><img src='http://www.gif-anime.org/im/gif/drapeau/benin/benin3.gif'></img></body></html>"
'---
DoEvents
With WBS.Document.Body.Style
  '--- Supprime la bordure ---
  .BorderStyle = "none"
  '--- Applique la couleur de fonds du UserForm ---
  '################################################################################
  '### ATTENTION :                                                              ###
  '### Pour que l'instruction suivante fonctionne, il est impératif de définir  ###
  '### la couleur de fonds du UserForm (BackColor) par le biais de l'onglet     ###
  '### "Palette" de la fenêtre de Propriétés et NON pas par l'onglet "Système". ###
  '### L'affectation de la couleur par code est également possible avec une     ###
  '### instruction comme, par exemple :       Me.BackColor = 16744576           ###
  '################################################################################
  .BackgroundColor = InvertRGB(Me.BackColor)
End With
End Sub
 
Private Function InvertRGB(Color As Long) As Long
Dim A$
Dim B$
Dim i&
A$ = Hex(Color)
Do Until Len(A$) >= 6
  A$ = "00" & A$
Loop
For i& = 6 To 2 Step -2
  B$ = B$ & Mid(A$, i& - 1, 2)
Next i&
InvertRGB = CLng("&H" & B$)
End Function

Bon courage et à plus.

**signorepel** · 02/07/2013, 17h56

Bonsoir PMO2017
J'ai fait, tel que tu as expliqué, le code fonctionne bien. Toutefois, je constate que la couleur de fond du Userform diffère de celle en dessous du Drapeau, je serais ravi que tu m'orientes sur quelle ligne il faut insérer une modification dans le code. Je voudrais aussi, te demander, au cas où je n'aurais pas la connexion, et que l'image gif se trouverait sur mon poste, s'il n'y aurait pas un code qu'on pourrait insérer pour faire flotter le drapeau offline.
Je ne saurais comment te remercier infiniment et tous ceux d'ailleurs qui lisent aussi, ma préoccupation. Merci !

**PMO2017** · 04/07/2013, 12h41

Bonjour,

signorepel Toutefois, je constate que la couleur de fond du Userform diffère de celle en dessous du Drapeau

Cela dépend des GIF. Certains ont leur couleur de fonds qui peut être modifiée, d'autres pas. Il faut donc choisir ceux qui réagissent bien.
***

au cas où je n'aurais pas la connexion, et que l'image gif se trouverait sur mon poste

mercatog avait indiqué la démarche dans son message du 01/07/2013 20h53
***
Je mets, en pièce jointe, un exemple qui traite le problème de la connexion. Soit on est connecté et on va chercher un GIF sur Internet, soit on l'est pas et on affiche le GIF qui est sur l'ordinateur (il faudra adapter le chemin et le nom du fichier GIF dans le code).

Animer un drapeau sur Userform (VBA) [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager