CELLULE CLIGNOTANTE

  • Initiateur de la discussion merlin
  • Date de début
M

merlin

Guest
Bonjour le forum,

qqn aurait-il la réponse à un ch'tite question que je me pose :

comment puis faire clignoter une cellule selon une condition spécifique, par exemple : si la valeur que l'on met dans une cellule dépasse 150, elle clignotera.

merci d'avance
A+
m.E.r.L.iN
 
M

merlin

Guest
merci ... je perds la tête !

par contre comme faire pour que ce code ci-après soit adaptable non plus pour une cellule mais pour une zone entière ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [A1] >= 100 Then
Const Texte As String = ""
For i = 1 To 4
Cells(1, 1).Font.ColorIndex = 6
Cells(1, 1).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Cells(1, 1).Interior.ColorIndex = xlNone
Cells(1, 1).Font.ColorIndex = 1
End If
Next n
Next i
End If
Exit Sub
End Sub
 

Discussions similaires

Réponses
8
Affichages
230
Réponses
4
Affichages
207

Statistiques des forums

Discussions
312 206
Messages
2 086 220
Membres
103 158
dernier inscrit
laufin