Comment faire vibrer une cellule
Fermé
vieuxray
-
5 oct. 2018 à 14:11
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 - 15 oct. 2018 à 22:58
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 - 15 oct. 2018 à 22:58
A voir également:
- Comment faire vibrer une cellule
- Comment aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel
4 réponses
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 710
5 oct. 2018 à 17:21
5 oct. 2018 à 17:21
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
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 710
5 oct. 2018 à 17:56
5 oct. 2018 à 17:56
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
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 710
6 oct. 2018 à 07:31
6 oct. 2018 à 07:31
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
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
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
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 710
6 oct. 2018 à 11:36
6 oct. 2018 à 11:36
Bonjour,
Ca roule
Bye
Ca roule
Bye
yg_be
Messages postés
23352
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 novembre 2024
1 554
15 oct. 2018 à 22:58
15 oct. 2018 à 22:58
peux-tu marquer ceci comme résolu?
