Faire clignoter un msg d'erreur conditionné par 1 formule excel

OURAL62 -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je cherche comment faire clignoter un msg d'erreur conditionné par la formule =si(a1<>0;"erreur";"ok").
Je vous remercie beaucoup de l'aide et du temps que vous pourriez m'accorder.
Avec toute ma reconnaissance.
Merci d'avance.






A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 728
 
Bonjour,

Pas sûr de comprendre tout à fait ta question mais tu peux :
- mettre cette ligne dans un module 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

- mettre ce code dans ta feuille 
Private Sub Worksheet_Calculate()
Dim anc As Long, cpt As Long, cel As Range
    Set cel = [A1]
    If cel <> 0 Then
        With cel.Interior
            anc = .ColorIndex
            For cpt = 1 To 20
                .ColorIndex = IIf(cpt Mod 2 = 0, anc, 3)
                Sleep 150
            Next cpt
        End With
    End If
End Sub

à chaque modification de ta feuille, si A1 est différent de zéro la cellule clignote.
0