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

Question

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.  






Configuration: Windows / Firefox 42.0

gbinforme · Answer

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.

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

1 réponse

Discussions similaires