Re : Clignotement sur 2 colonnes
Bonjour Jean Marie,
Voici le code trouvé sur le premier lien que tu as donné ci-dessus.
Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
'
myDearFriend! Excel Pages - Mon univers Excel... - Mon univers Excel...
' Date : 18/06/2006
' Sujet : Cellules et Alertes clignotantes
'---------------------------------------------------------------------------------------
Dim Temps As Variant
Public Sub Clign()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
'Affiche l'alerte ou la fait disparaître (alternativement)
With ThisWorkbook
'Fond
With .Sheets("Fond cellule clignotant").Range("B3")
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)
End With
'Texte
With .Sheets("Texte clignotant").Range("B3")
.Font.ColorIndex = IIf(.Font.ColorIndex = 2, 3, 2)
End With
'Commentaire
With .Sheets("Commentaire clignotant").Range("B3")
.Comment.Visible = Not .Comment.Visible
End With
'Dessin
With .Sheets("Objet Dessin clignotant")
.Shapes("Alerte").Visible = Not .Shapes("Alerte").Visible
End With
End With
End Sub
Public Sub StopClign()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
'Cache l'alerte
With ThisWorkbook
'Fond
.Sheets("Fond cellule clignotant").Range("B3").Interior.ColorIndex = xlNone
'Texte
.Sheets("Texte clignotant").Range("B3").Font.ColorIndex = 3
'Commentaire
.Sheets("Commentaire clignotant").Range("B3").Comment.Visible = False
'Dessin
.Sheets("Objet Dessin clignotant").Shapes("Alerte").Visible = False
End With
End Sub
C'est cool, mais comment l'adapté a une colonne complète ?
Ce serait le top.
++