Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro clignotante

Macro clignotante

6 réponses
Avatar
fred
Bonjour,

Suite à la réponse de Dédé, j'ai appliqué cette macro pour avoir une cellule
clignotante:
Pour créer une cellule qui clignote :
Définit un nouveau style (format/style/Flash/ajouter)
Applique le à la cellule que tu choisis, place le code suivant dans un
module de
feuille et lance la procédure flash en tant que auto-open. Le texte clignote
entre
rouge et blanc.

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

Cela fonctionne très bien (merci Dédé!), mais je deviens un peu gourmand et
souhaiterai la subordonner à une condition: genre si le nombre de la cellule
A2 est inférieur à 10, alors déclenche la macro...
Si quelqu'un peut m'éclairer,

Merci de votre aide et Bon apétit!

FRED.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Elicend_News
salut

avec la mise en forme conditionnelle je pense que tu peux t'en sortir

regarde dans les menus je sais plus lequel, outil ou format

"fred" a écrit dans le message de
news:
Bonjour,

Suite à la réponse de Dédé, j'ai appliqué cette macro pour avoir une
cellule

clignotante:
Pour créer une cellule qui clignote :
Définit un nouveau style (format/style/Flash/ajouter)
Applique le à la cellule que tu choisis, place le code suivant dans un
module de
feuille et lance la procédure flash en tant que auto-open. Le texte
clignote

entre
rouge et blanc.

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

Cela fonctionne très bien (merci Dédé!), mais je deviens un peu gourmand
et

souhaiterai la subordonner à une condition: genre si le nombre de la
cellule

A2 est inférieur à 10, alors déclenche la macro...
Si quelqu'un peut m'éclairer,

Merci de votre aide et Bon apétit!

FRED.





Avatar
Hervé
Salut Fred,
Un peu différent de la macro de Dédé. A mettre dans le module de ta feuille
:

Private Declare Function GetTickCount Lib "Kernel32" () As Long

Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
DoEvents
Loop
End Sub

Sub Clignote(Cel As Range, _
Operateur As String, _
Valeur As Variant)
Do While Evaluate(Cel.Value & Operateur & Valeur)
Cel.Font.ColorIndex = 3
Minuterie 1000
Cel.Font.ColorIndex = 2
Minuterie 1000
Loop
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2]) Is Nothing Then
'changer ici les valeurs !
Clignote [A2], "<", 10
End If
End Sub

Hervé.

"fred" a écrit dans le message news:

Bonjour,

Suite à la réponse de Dédé, j'ai appliqué cette macro pour avoir une
cellule

clignotante:
Pour créer une cellule qui clignote :
Définit un nouveau style (format/style/Flash/ajouter)
Applique le à la cellule que tu choisis, place le code suivant dans un
module de
feuille et lance la procédure flash en tant que auto-open. Le texte
clignote

entre
rouge et blanc.

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

Cela fonctionne très bien (merci Dédé!), mais je deviens un peu gourmand
et

souhaiterai la subordonner à une condition: genre si le nombre de la
cellule

A2 est inférieur à 10, alors déclenche la macro...
Si quelqu'un peut m'éclairer,

Merci de votre aide et Bon apétit!

FRED.





Avatar
fred
Je regarde dans cette direction.

Merci et bon week-end.

FRED


"Misange" ù.net> a écrit dans le message de
news:
bonjour,
regarde ici :
http://www.excelabo.net/xl/formats.htm#clignotersi
:-)

--
Misange migrateuse http://www.excelabo.net
==Disciplus a migré chez excelabo !======= > mail : http://cerbermail.com/?k5Q8Dh2mta




"fred" a écrit dans le message de news:

Bonjour,

Suite à la réponse de Dédé, j'ai appliqué cette macro pour avoir une
cellule

clignotante:
Pour créer une cellule qui clignote :
Définit un nouveau style (format/style/Flash/ajouter)
Applique le à la cellule que tu choisis, place le code suivant dans un
module de
feuille et lance la procédure flash en tant que auto-open. Le texte
clignote

entre
rouge et blanc.

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

Cela fonctionne très bien (merci Dédé!), mais je deviens un peu gourmand
et

souhaiterai la subordonner à une condition: genre si le nombre de la
cellule

A2 est inférieur à 10, alors déclenche la macro...
Si quelqu'un peut m'éclairer,

Merci de votre aide et Bon apétit!

FRED.









Avatar
fred
Re bonjour,

Je vais encore être un peu lourd, mais est-il possible, sur le modèle de
cette macro, de faire en sorte que ce soit le fond de la cellule qui
clignote et pas le texte?
Bon, promis, après j'arrête (de toute façon je pars en week-end).

Merci,

FRED


"fred" a écrit dans le message de
news:
Je regarde dans cette direction.

Merci et bon week-end.

FRED


"Misange" ù.net> a écrit dans le message de
news:
bonjour,
regarde ici :
http://www.excelabo.net/xl/formats.htm#clignotersi
:-)

--
Misange migrateuse http://www.excelabo.net
==Disciplus a migré chez excelabo !======= > > mail : http://cerbermail.com/?k5Q8Dh2mta




"fred" a écrit dans le message de news:

Bonjour,

Suite à la réponse de Dédé, j'ai appliqué cette macro pour avoir une
cellule

clignotante:
Pour créer une cellule qui clignote :
Définit un nouveau style (format/style/Flash/ajouter)
Applique le à la cellule que tu choisis, place le code suivant dans un
module de
feuille et lance la procédure flash en tant que auto-open. Le texte
clignote

entre
rouge et blanc.

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

Cela fonctionne très bien (merci Dédé!), mais je deviens un peu
gourmand



et
souhaiterai la subordonner à une condition: genre si le nombre de la
cellule

A2 est inférieur à 10, alors déclenche la macro...
Si quelqu'un peut m'éclairer,

Merci de votre aide et Bon apétit!

FRED.













Avatar
JC
Bonjour Misange
J'ai downloadé un classeur Excel " " depuis excelabo et il est vérolé
par WM97

Il me semble que c'est mp-xlprivatesession.zip

Comme je l'ai de suite viré, je ne me souviens plus du mon

Merci de vérifier
Joe



"Misange" ù.net> a écrit dans le message news:

bonjour,
regarde ici :
http://www.excelabo.net/xl/formats.htm#clignotersi
:-)

--
Misange migrateuse http://www.excelabo.net
==Disciplus a migré chez excelabo !======= > mail : http://cerbermail.com/?k5Q8Dh2mta




"fred" a écrit dans le message de news:

Bonjour,

Suite à la réponse de Dédé, j'ai appliqué cette macro pour avoir une
cellule

clignotante:
Pour créer une cellule qui clignote :
Définit un nouveau style (format/style/Flash/ajouter)
Applique le à la cellule que tu choisis, place le code suivant dans un
module de
feuille et lance la procédure flash en tant que auto-open. Le texte
clignote

entre
rouge et blanc.

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

Cela fonctionne très bien (merci Dédé!), mais je deviens un peu gourmand
et

souhaiterai la subordonner à une condition: genre si le nombre de la
cellule

A2 est inférieur à 10, alors déclenche la macro...
Si quelqu'un peut m'éclairer,

Merci de votre aide et Bon apétit!

FRED.









Avatar
Misange
Bonjour,
Je viens de vérifier avec Norton dernière mise à jour, il ne voit rien.
Quel antivirus utilises tu ? Peut être est-il paramétré pour crier s'il voit
une macro excel ? Dans ce cas c'est normal, comme 90% des classeurs en
téléchargement sur excelabo, il y a plein de macros dans celui ci. Mais tu
peux y aller sans risque, foi de misange !

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !====



"JC" a écrit dans le message de
news:%23$
Bonjour Misange
J'ai downloadé un classeur Excel " " depuis excelabo et il est vérolé
par WM97

Il me semble que c'est mp-xlprivatesession.zip

Comme je l'ai de suite viré, je ne me souviens plus du mon

Merci de vérifier
Joe



"Misange" ù.net> a écrit dans le message news:

bonjour,
regarde ici :
http://www.excelabo.net/xl/formats.htm#clignotersi
:-)

--
Misange migrateuse http://www.excelabo.net
==Disciplus a migré chez excelabo !======= > > mail : http://cerbermail.com/?k5Q8Dh2mta




"fred" a écrit dans le message de news:

Bonjour,

Suite à la réponse de Dédé, j'ai appliqué cette macro pour avoir une
cellule

clignotante:
Pour créer une cellule qui clignote :
Définit un nouveau style (format/style/Flash/ajouter)
Applique le à la cellule que tu choisis, place le code suivant dans un
module de
feuille et lance la procédure flash en tant que auto-open. Le texte
clignote

entre
rouge et blanc.

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

Cela fonctionne très bien (merci Dédé!), mais je deviens un peu
gourmand



et
souhaiterai la subordonner à une condition: genre si le nombre de la
cellule

A2 est inférieur à 10, alors déclenche la macro...
Si quelqu'un peut m'éclairer,

Merci de votre aide et Bon apétit!

FRED.