Comment faire vibrer une cellule
vieuxray
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Comment faire vibrer une cellule
- Comment aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Diviser une cellule excel en deux horizontalement - Forum Excel
- Séparer une cellule en 2 ✓ - Forum LibreOffice / OpenOffice
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
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
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
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
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
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
