Macro pour faire clignoter une forme

Question

Bonjour à tous,

Je souhaiterais faire clignoter une forme quand je clique sur une autre. J'ai essayé plusieurs macros mais aucune ne fonctionne.

Quelqu'un a-t-il une solution ?

Merci d'avance.

Cordialement,

Nicolas.

Answer 1

Mets :

.Fill.ForeColor.RGB = RGB(255, 192, 0)

Daniel

Answer 2

Bonjour,

Regarde un exemple ici :

https://www.cjoint.com/c/MLri11jhCcT

Le code :

Public Intervalle As Date
Sub test()
Intervalle = Now + TimeValue("00:00:05")
Application.OnTime Intervalle, "Test"
With ActiveSheet.Shapes("Ellipse 1")
Set Var = ActiveSheet.Shapes("Ellipse 1")
If .Fill.ForeColor.RGB = 255 Then
.Fill.ForeColor.RGB = 3057486
Else
.Fill.ForeColor.RGB = 255
End If
End With
End Sub
Sub Depart()
Intervalle = Now + TimeValue("00:00:05")
Application.OnTime Intervalle, "Test"
End Sub
Sub Arret()
Application.OnTime Intervalle, "Test", , False
End Sub

Note : Le clignotement est réglé ici à 5 secondes. Les couleurs sont le rouge et le vert. A toi de modifier.

Daniel

Answer 3

merci Daniel pour ton aide précieuse.

Answer 4

Bonjour Daniel,

merci beaucoup cela fonctionne très bien.

comment fait on si la couleur que je veux mettre a un code RGB de R255 G192 B0 (orange)

merci.

Nicolas