Cellule clignotante

Bonjour,

Savez-vous si il est possible de faire clignoter une cellule en fonction de la valeur contenue dans cette cellule ? Si oui, comment ? Merci d'avance.

Cordialement.

Bonjour Catroun,

Oui, mais en VBA et ce n'est jamais bien conseillé car cela peut créer un retard dans l'utilisation d'Excel

A+

Merci Bruno,

Oui je m'en doutais, mais s'agissant d'un "petit" fichier, la vitesse ne devrait pas poser de problème. Dans ce cas, quelle serait la procédure ? Ou au moins le principe de base, après je pourrais "gratter" moi-même. Merci d'avance.

Cordialement.

Bonjour

Quelle est la cellule concernée et quelle est la valeur qui d’éclanche le clignotant?

Crdlt

Bonjour Joco7915

Sans savoir forcément quelle cellule, voici une possibilité qui donnera une idée

A mettre dans la Feuil1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Sheets("Feuil1").Range("A1")) Is Nothing Then
        If Target.Value = 100 Then Clignote Else StopClignote
    End If
End Sub

A mettre dans un module

Option Explicite
Dim Temps As Variant

Public Sub Clignote()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clignote"
    'Affiche l'alerte ou la fait disparaître (alternativement)
    With ThisWorkbook
        With .Sheets("Feuil1").Range("A1")
            .Font.ColorIndex = IIf(.Font.ColorIndex = 2, 3, 2)
        End With
    End With
End Sub

Public Sub StopClignote()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "Clignote", , False
    On Error GoTo 0
    'Cache l'alerte
    With ThisWorkbook
        'Texte
        .Sheets("Feuil1").Range("A1").Font.ColorIndex = 3
    End With
End Sub

A+

Merci chers amis,

Je vais tester tout cela.

Bonne soirée