Cellule clignote

bonjour Gerard

ci dessous le lien vers la demo de Ti

Lien supprimé


bon week end
michel

rebonjour gerard

un autre lien sur le meme sujet

Lien supprimé


michel

Bonsoir,
ci joint un fichier que j'avais trouvé sur un site dont le nom m'échappe ce soir
Bon week end

Bonsoir Michel et F.Launay
Tout d'abord un grand Merci pour votre aide à la recherche "d'infos perdues", je pioche, j'épluche, je décortique, je gratte mais cela ne creuse guère !
En effet ClignoteTi, clignote certes mais en fonction de deux autres valeurs.
Je ne peux adapter cette solution.
J'ai essayé de "trafiquer" la solution Veriland (cf cidessous) où la cellule A1 clignote si elle a la valeur FAUX. J'ai donc changé de façon à avoir ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Clignoter A1 si cellule A1 FAUX
' Vériland Novembre 2003
Dim n As Byte
Dim Start As Variant
Dim i As Integer

If Range("A1").Value < 0 Then
Const Texte As String = ""
For i = 1 To 3
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 = 2
Next n
Next i
Exit Sub
End If
End Sub
Cela fonctione parfaitement (on en attendait pas moins de vériland !) mais maintenant je broute le gazon car si je remplace A1 par A1:A10 une plage arbitrairement choisie.... cela plante.
Merci d'avance non du "petit coup de pouce" mais du "grand coup de main" nécessaire pour que j'accède enfin au titre double buse pour l'instant j'en suis encore à "triple buse". Moi qui croyait qu'un W-E ensoleillé allait stimuler mes neurones !
A bientôt j'espère
@+
Bien cordialement GD