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

OURAL62 -  
gbinforme Messages postés 14930 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.

1 réponse

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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

Discussions similaires

tout en majuscules (excel)
txiki -
Avatar -

35 réponses