Insérer une bannière animée

**zangaloni** · 19/04/2011, 12h40

Bonjour,

Je cherche à faire une bannière animée sous excel, est ce que c'est possible ?
une bannière comme celle qu'on trouve dans les sites de bourse,
un exemple : http://www.casablanca-bourse.com/BourseWeb/index.aspx

bonne journée.

**mercatog** · 19/04/2011, 12h45

Bonjour
Excel est d'abord un tableur (pour des fins certes grandes mais précises)
C'est faisable, mais combien de ressources tu engagera (boucle infinie) pour ce coté "esthétique".

**zangaloni** · 19/04/2011, 12h55

Je pense que c'est difficile à réaliser.
Je me rend, mon programme est assez volumineux je voulais juste ajouter une touche particulière
Merci en tous cas

**patricktoulon** · 19/04/2011, 21h50

bonjour

effectivement une boucle perpétuelle serai nécessaire pour faire ton animation

néanmoins il y a une autre solution.

regarde un peu sur le net au sujet de la "gif.dll" petite dll te permettant d'afficher un gif animé (c'est un ocx) a ajouter

télécharger la dll ici

la gif89.dll est ici

met la dans le dossier "c\windows \system32"

enregistre avec regsvr32 :

menu démarrer/exécuter, et tape l'instruction :

regsvr32 "c:\Windows\System32\gif89.dll"

dans la boite a outil de l'éditeur de macro (outil supplémentaires et "giff089"

ça pourrait être une solution alternative que j'ai utlisé d'ailleurs

il ne reste plus qu' a fabriquer ta bannière animée au format giff avec le logiciel de ton choix

pour ma part j'utilise "theGIMP" gratuit (sans faire de PUB!!!)

n'hésite pas si tu a des questions

au plaisir

**mercatog** · 19/04/2011, 21h53

Bonjour Patrick
idée géniale sauf que la bannière dont il s'agit sert comme support d'informations (données) qu'il faut mettre à jour et non une simple image annimée.

**fring** · 20/04/2011, 12h50

Bonjour,

Il y a une solution en passant par un WebBrowser

tu insères un contrôle WebBrowser sur ta feuille

code à placer dans un Module Standard

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
Sub TestWb()
'Références à activer :
'    - Microsoft Internet Control
'    - Microsoft HTML Object Library
 
Dim Texte As String
 
Texte = "Mon Texte qui défile"
 
Sheets(1).WebBrowser1.Navigate _
        "about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color='#000099' size='5' face='Arial'>" & _
        "<marquee scrollAmount=5>" & Texte & "</marquee></font></body></html>"
        'body BGCOLOR ='#CCCCCC' <-- couleur de fond du WebBrowser
        'font color='#000099' <-- couleur du texte
        'size='5' <-- taille du texte
        'face='Arial' <-- style de texte
        'scrollAmount=5 <-- vitesse de défilement
 
End Sub

code à placer dans le module de la feuille

Code :

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

1
2
3
Private Sub Worksheet_Activate()
    TestWb
End Sub

**patricktoulon** · 22/04/2011, 14h42

bonjour mercatog

que cela te tienne tu fait ton giff avec des emplacements blancs pour les controls(textbox,combo,ect...) que tu place par dessus dans ton application

ca evite de faire des boucles perpétuelles qui peuvent ralentir l'application

au plaisir

**mercatog** · 22/04/2011, 14h51

Bonjour
Sur la bannière, le souci c'est que sur le site donnée par l'intéressé, les données ne sont pas un simple texte qui défile; mais des données mises à jours qui défilent.
La solution donnée par Fring, est celle qui permettra de donner le résultat escompté (avec adaptation, éventuellement mise à jour de la variable Texte suite aux Change de la feuille entre autre).

**patricktoulon** · 22/04/2011, 16h04

rebonjour

tu a raison mercatog la solution de fring est la plus adaptée dans ce cas

au plaisir

Insérer une bannière animée [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager