Discussion :

[léclaireur]

Bonjour,

J'aimerais faire clignoter une cellule (VBA-E) en faisant alterner deux couleurs: le rouge et le blanc.
Mais je ne connaît pas la commande qui permettrait d'alterner ces deux couleurs.

Merci d'avance si vous savez.

[mordrhim]

pour changer la couleur de la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cellule.Interior.ColorIndex = n

Avec n l'index de couleur

[léclaireur]

il est vrai que cette commande permet de sélectionner la couleur de la cellule de notre choix, mais j'aimerais en plus la faire clignoter.

Sinon merci

[patbou]

bonjour
voici une solution peut etre un peu grossiere pour les specialiste de vba mais
bon ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub clignote()
Dim tps
Dim i As Integer
Worksheets(1).Activate
For i = 1 To 10
tps = Time + TimeValue("00:00:1")
Application.Wait (tps)
Range("a1").Interior.ColorIndex = 10
tps = Time + TimeValue("00:00:1")
Application.Wait (tps)
Range("a1").Interior.ColorIndex = 15
Next i
End Sub
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call clignote
End Sub

la macro se lance avec l event dble click
le clignotement se fait 10 fois a toi d adapter

[dadavyvy]

une recherche sur le forum :
http://www.developpez.net/forums/showthread.php?t=84394