Faire clignoter un msg d'erreur conditionné par 1 formule excel
Fermé
OURAL62
-
Modifié par OURAL62 le 6/12/2015 à 19:26
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 6 déc. 2015 à 22:22
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 6 déc. 2015 à 22:22
A voir également:
- Faire clignoter un msg d'erreur conditionné par 1 formule excel
- Formule excel - Guide
- Erreur 0x80070643 - Guide
- Liste déroulante excel - Guide
- Formule moyenne excel - Guide
- Formule excel si et - Guide
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
6 déc. 2015 à 22:22
6 déc. 2015 à 22:22
Bonjour,
Pas sûr de comprendre tout à fait ta question mais tu peux :
- mettre cette ligne dans un module
- mettre ce code dans ta feuille
à chaque modification de ta feuille, si A1 est différent de zéro la cellule clignote.
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.
