Comment faire vibrer une cellule
Bonjour, a tous, forum bonjour,
Sous windows10 et Excel 2007
Je souhaiterai apporter si possible un plus dans mon programme en cours.
Voir svp le fichier comportant les simples explications de mon besoin.
Lien ci-dessous pour le fichier.
https://www.cjoint.com/c/HJfmfPwlVrz
Merci a vous pour votre aide et votre savoir partager, bonne après midi a tous.
Cdlt Ray
Sous windows10 et Excel 2007
Je souhaiterai apporter si possible un plus dans mon programme en cours.
Voir svp le fichier comportant les simples explications de mon besoin.
Lien ci-dessous pour le fichier.
https://www.cjoint.com/c/HJfmfPwlVrz
Merci a vous pour votre aide et votre savoir partager, bonne après midi a tous.
Cdlt Ray
4 réponses
-
Bonjour,
A priori, faire trembler une cellule n'est pas faisable.
Par contre avec Excel 2007, il y a possibilite d'inserer un Navigateur Microsoft Web Browser et de lui affecter un gif anime
Petit soucis, avec Excel 2013 marche plus, Excel 2010 sais pas -
Salut f894009,
Merci pour la réponse,
J'ai bien envie d'essayer ta proposition, mais je souhaiterai le Web Browser dans la cellule (F2) de ma (Feuil1)
Si c'est possible, bien sur.
---- Si oui tu peux m'indiquer comment faire svp
Je vais chercher un petit "Gif animé"
Merci a toi bonne fin d'après midi.
Cdlt Ray-
Re,
Il y a juste un petit soucis je n'ai pas trouve comment masquer la Scrollbar verticale du web browser
Mop pour insertion Web Browser: https://support.microsoft.com/fr-fr/help/2712854
Paragraphe 6
-
-
Re f894009,
j'ai réussi a faire la Frame1 et la webBrowser1
mais j'ai une erreur il trouve pas la page d'internet (voir ci dessous l'adresse)
Donc je pense télécharger un gif animé et voir comment l'insérer
je vois ca demain matin
merci pour le tuto ca m'a bien servi
bonne soirée a toi et bon app
Cdlt Ray
-
Bonjour,
votre code avec ligne pour Web Browser a adapter et voir pour Clignotant
Public Sub Messagerie() Dim T0 As Single, Duree As Integer T0 = Timer: Duree = 10 'Temps 10 Secondes Feuil1.WebBrowser2.Document.body.Style.Border = "none" Feuil1.WebBrowser2.Document.body.Scroll = "no" Feuil1.WebBrowser2.Visible = True Feuil1.WebBrowser2.Navigate "D:\Prog_Info_Course_ICO_IMG\Gifs\alerte.gif" Call Clignotant Do If Not Userform1.Visible Then Userform1.Show 0 'Ouvre USF1 Userform1.Label1 = "Veuillez patientez svp " 'Affiche message Label1 Userform1.Label2 = " Seconde(s)" Userform1.Label3 = Int(Duree + T0 - Timer + 0.5) 'Affiche décompte temps dans Label3 DoEvents Loop Until (Timer - T0) > Duree Unload Userform1 'Ferme USF1 Feuil1.WebBrowser2.Visible = False Call Arrêt_Clignotant End Sub
-
-
Salut f894009,
Merci pour ton aide et pour le code, j'ai adapter a mon programme et ca fonctionne bien de plus je n'ai pas les scrolls bars du bas ni celui de droite.
Merci une fois de plus pour ton savoir.
Je te souhaite un excellent et bon W-end
Bien cordialement Raymond Bye bye et merci
