Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel cellule clignotante

cellule clignotante

4 réponses
Avatar
reno
bonjour a tous,

j aimerais avoir le code d une macro pour aire clignoter
le contenu de cellules ( B6 a C9) pendan 10 secondes, et
sans aucune conditions sur le contenu des cellules


merci
Signaler un problème avec ce contenu

4 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
Hervé
Salut Reno,
Avec une API. La proc ne te bloque pas. Adapte :

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() ' AI passe clignote en rouge
Dim I As Integer
Do While I < 10
[A1].Interior.ColorIndex = 3
Minuterie 500
[A1].Interior.ColorIndex = 0
Minuterie 500
I = I + 1
Loop
End Sub

Hervé.

"reno" a écrit dans le message news:
0d1101c3584a$4f19a210$
bonjour a tous,

j aimerais avoir le code d une macro pour aire clignoter
le contenu de cellules ( B6 a C9) pendan 10 secondes, et
sans aucune conditions sur le contenu des cellules


merci


Avatar
reno
merci herve,

cependant je ne vois pas dans ta macro ou je dis quelles
cellule doit clignoter ( je suis mauvais en vba)

peux tu m aider?

merci

renaud




-----Message d'origine-----
Salut Reno,
Avec une API. La proc ne te bloque pas. Adapte :

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() ' AI passe clignote en rouge
Dim I As Integer
Do While I < 10
[A1].Interior.ColorIndex = 3
Minuterie 500
[A1].Interior.ColorIndex = 0
Minuterie 500
I = I + 1
Loop
End Sub

Hervé.

"reno" a écrit dans le message news:
0d1101c3584a$4f19a210$
bonjour a tous,

j aimerais avoir le code d une macro pour aire clignoter
le contenu de cellules ( B6 a C9) pendan 10 secondes, et
sans aucune conditions sur le contenu des cellules


merci



.




Avatar
reno
ok merci



-----Message d'origine-----
Bonsoir Reno,

Voici un clignotement un peu primitif en attendant
de retrouver cette sacrée macro que j'égare toujours
(... kernel ... millisecondes ...) et qui permet
d'utiliser Sleep().

Tu devrais aller sur Excelabo. Tu y trouveras des
clignotements

plus sophistiqués.

http://www.excelabo.net

Serge

Sub Clignote()
For i = 1 To 1000
Range("plage").Interior.ColorIndex = 1
Range("plage").Interior.ColorIndex = 0
Next i
End Sub

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

0d1101c3584a$4f19a210$
bonjour a tous,

j aimerais avoir le code d une macro pour aire clignoter
le contenu de cellules ( B6 a C9) pendan 10 secondes, et
sans aucune conditions sur le contenu des cellules


merci



.




Avatar
Philippe.R
Bonsoir reno,,
C'est dans cette procédure :

Sub Clignote() ' AI passe clignote en rouge
Dim I As Integer
Do While I < 10
[A1].Interior.ColorIndex = 3
Minuterie 500
[A1].Interior.ColorIndex = 0
Minuterie 500
I = I + 1
Loop
End Sub

qu'il te faut remplacer [A1] par la cellule de ton choix comme par exemple [Z45] ou la plage exprimée
ainsi : range("C3:H28")
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"reno" a écrit dans le message de news:08e701c35b22$c670c200$
merci herve,

cependant je ne vois pas dans ta macro ou je dis quelles
cellule doit clignoter ( je suis mauvais en vba)

peux tu m aider?

merci

renaud




-----Message d'origine-----
Salut Reno,
Avec une API. La proc ne te bloque pas. Adapte :

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() ' AI passe clignote en rouge
Dim I As Integer
Do While I < 10
[A1].Interior.ColorIndex = 3
Minuterie 500
[A1].Interior.ColorIndex = 0
Minuterie 500
I = I + 1
Loop
End Sub

Hervé.

"reno" a écrit dans le message news:
0d1101c3584a$4f19a210$
bonjour a tous,

j aimerais avoir le code d une macro pour aire clignoter
le contenu de cellules ( B6 a C9) pendan 10 secondes, et
sans aucune conditions sur le contenu des cellules


merci



.