XL 2016 Cellule clignotante

[Peponne31]

Bonsoir,

J'ai trouvé cette formule sur le net et je voudrai la modifier pour la faire clignoter une vingtaine de fois,

Public Sub Clignotement()
With ThisWorkbook.Styles("Flashing")
If .Font.ColorIndex = 7 Then
.Font.ColorIndex = 46
.Interior.ColorIndex = 3
Else
.Font.ColorIndex = 7
.Interior.ColorIndex = 4
End If
End With



nextTime = Now() + TimeValue("00:00:01")
Application.OnTime nextTime, "Clignotement"

End Sub

pourriez-vous me dire comment la modifier ?
Cordialement

 

[Peponne31]

Re

J'ai oublier de préciser que ce code fonctionne bien mais clignote continuellement et que la cellule ou il se trouve est G2
Style Flashing.
Merci

 

[Dranreb]

Bonsoir.
Le mieux c'est d'indiquer combien de fois vous voulez qu'il clignote :

Public Sub Clignotement(Optional ByVal N As Integer = 20)
   Static Tps As Date, Cmde As String
   If N > 0 Then
      With ThisWorkbook.Styles("Flashing")
         .Font.ColorIndex = 7 + 46 - .Font.ColorIndex
         .Interior.ColorIndex = 4 + 3 - .Interior.ColorIndex
         End With
   ElseIf Tps <> 0 Then
      Application.OnTime Tps, Cmde, Schedule:=False
      End If
   If N > 1 Then
      Tps = Now() + TimeValue("00:00:01")
      Cmde = "'Clignotement " & N - 1 & "'"
      Application.OnTime Tps, Cmde
   Else: Tps = 0: End If
   End Sub

Sub Test()
   Clignotement 6
   End Sub

 

[Peponne31]

Re

Merci pour votre solution qui fonctionne si la cellule n'est pas protégée, existe t-il un moyen pour la faire clignoter en ayant la cellule verrouillée ?

Merci

 

[Dranreb]

Ce que la protection gêne il me semble, c'est de changer le style de la cellule, ce n'est pas de lancer le clignotement !

 

[Peponne31]

Merci je vais creuser votre idée.

Cordialement

 

[Dranreb]

Attention j'ai changé des détails dans le code du poste #3
Il y avait en effet un risque de plantage en voulant arrêter le clignotement par Clignotement 0