> Tous les forums > Forum Bureautique
 faire clignoter du texte en VBASujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
flamel
  Posté le 10/04/2010 @ 17:30 
Aller en bas de la page 
Petit astucien

Bonjour,

Peut-on faire clignoter du texte ou une TextBox en Excel VBA, et comment ?

Merci si vous pouvez m'aider

Publicité
Mytå
 Posté le 10/04/2010 à 20:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le forum

Un très bon truc de Bill Manville

Dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopIt
End Sub

Private Sub Workbook_Open()
Flash
End Sub

Dans un Module

Dim NextTime As Date

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
End Sub

Ensuite Format > Style > Flash > Ajouter

Appliquer ensuite le style à la cellule à faire clignoter.

Mytå



Modifié par Mytå le 10/04/2010 20:56
Mytå
 Posté le 12/04/2010 à 22:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

Flamel, la solution te convient ou pas....

Merci de donner suite à votre message

Mytå

flamel
 Posté le 13/04/2010 à 15:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci Mytå,

Je viens de constater qu'il y avait deux fois le même sujet en cours, par erreur ou par accident. L'autre discussion avec des réponses bizarres ? ! J'ai prié les modératuers de le supprimer.

J'ai essayer ton code, mais ça ne clignote pas.

Me manque-t-il un librairie ?

Cordialement.



Modifié par flamel le 13/04/2010 15:09
Mytå
 Posté le 14/04/2010 à 02:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

Flamel, tu as du oublier une étape

Tu dois copier les deux codes dans VBA (Alt+F11)

Tu crées un Style au nom de Flash (Format > Style > Flash > Ajouter)
Sous Excel 2007 (Accueil > Styles de cellules > Nouveau style de cellule)

Tu affectes ce style "Flash" à quelques cellules que tu veux voir "flasher"

La cellule doit contenir du texte car c'est le texte qui va "flasher"

A te relire

Mytå



Modifié par Mytå le 14/04/2010 02:08
Mytå
 Posté le 14/04/2010 à 02:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

Si tu veux faire "flasher" la cellule modifie dans le code

ActiveWorkbook.Styles("Flash").Font

par (il y a deux endroits)

ActiveWorkbook.Styles("Flash").Interior

Mytå

flamel
 Posté le 14/04/2010 à 07:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Mytå,

Si, ça marche pour une cellule dans Excel, mais ce que je cherche, c'est de faire clignoter du texte dans une TextBox.

Je n'ai peut-ête pas bien placé les codes.

Merci de m'aider.

Mytå
 Posté le 15/04/2010 à 01:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

C'est plus la même chose, si le texte est dans une TextBox.

Faire clignoter du texte en VBA

Et tu peux préciser si la TextBox est sur la feuille ou dans un UserForm,

si elle provient de la Barre d'outils : Boîte à Outils Contrôles ou Formulaire.

A te relire

Mytå

flamel
 Posté le 15/04/2010 à 06:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Dans un userform.

Cordialement.

Publicité
flamel
 Posté le 18/04/2010 à 20:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Mytå,

Tu as disparu ?

Cordialement.

flamel

Mytå
 Posté le 18/04/2010 à 21:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

Flamel, j'attends que tu donnes suite à la solution de myDearFriend

Sur le fichier exemple suivant : PourFlamel.zip

Mytå



Modifié par Mytå le 18/04/2010 21:18
flamel
 Posté le 18/04/2010 à 21:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Mytå,

Excuse moi, je découvre les réponses que tu m'indiques. Je n'ai pas été averti de la réponse à ma question, et j'en suis sans doute responsable.

Je vais y voir. Merci. et à bientôt.

Cordialement.

flamel

flamel
 Posté le 19/04/2010 à 08:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous,

Le problème est résolu, tel que je le désirais.

Merci.

flamel

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
faire clignoter un texte sous excel
Faire un graphique a partir de valeur texte
Comment faire du texte vertical
Faire tenir texte sur une page
Texte Vertical dans Word 2007 , comment faire ?
Faire clignoter une cellule.
Faire clignoter une celle dans Excel ?
faire un calcul rapide dans un texte Word
Comment faire ? un lien derriere du texte
Faire defiler une bande de texte en bas d'une diap
Plus de sujets relatifs à faire clignoter du texte en VBA
 > Tous les forums > Forum Bureautique