XL 2016 Cellule clignotante

P

Peponne31

XLDnaute Nouveau

• 19 Mai 2019

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Mai 2019

• #3

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

VB:

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

Code:

Sub Test()
   Clignotement 6
   End Sub

 

Dernière édition: 19 Mai 2019

Vote positif 0 Vote négatif

P

Peponne31

XLDnaute Nouveau

• 19 Mai 2019

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Mai 2019

• #5

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 !

 

Vote positif 0 Vote négatif

P

Peponne31

XLDnaute Nouveau

• 19 Mai 2019

• #6

Merci je vais creuser votre idée.

Cordialement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Mai 2019

• #7

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

 

Vote positif 0 Vote négatif