comment faire clignoter une cellule Excel sous conditions ?

Le
ronzeau33
Je souhaite qu'une cellule se mette à clignoter lorsque se trouve remplie
telle ou telle condition
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Hervé
Le #21445261
Bonsoir,

A mettre dans le module de la feuille et adapter :

Private Declare Function GetTickCount _
Lib "Kernel32" () As Long

Sub Minuterie(Milliseconde As Long)

Dim Arret As Long

Arret = GetTickCount() + Milliseconde

Do While GetTickCount() < Arret
DoEvents
Loop

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

'test sur la cellule A1
If Not Intersect(Target, [A1]) Is Nothing Then

'changer ici la valeur de comparaison !
Do While Target >= 10
Target.Interior.ColorIndex = 3
Minuterie 1000
Target.Interior.ColorIndex = 0
Minuterie 1000
Loop

End If

End Sub

Hervé.


"ronzeau33" news:
Je souhaite qu'une cellule se mette à clignoter lorsque se trouve remplie
telle ou telle condition
michdenis
Le #21446411
Bonjour,

Un petit exemple : http://cjoint.com/?dBc5qckSHd



"ronzeau33" discussion :
Je souhaite qu'une cellule se mette à clignoter lorsque se trouve remplie
telle ou telle condition
Publicité
Poster une réponse
Anonyme