Cellule clignote

[Gérard DEZAMIS]

Bonjour à tous

Une question concernant le clignotement conditionnel d'une cellule, posée par Nicole , m'interesse beaucoup.

J'ai recherché sur le Forum et il y a un ClignoteTi.xls qui semble être la solution. Je n'ai pas été capable de le trouver !
Y a ti kékun ki sé ou ?
En désespoir de cause j'ai recherché sur d'autres sources et j'ai aussi trouvé qq chose qi me semble correct.... seulement je ne suis pas capable de l'adapter .... donc je ne suis pas plus avancé !
J'ai mis sur la pièce jointe le code (Mis avec Alt F11 dans Workbook) sans grand effet.
Qui saura me dire ce que je dois faire pour que cela fonctionne ?
Le soleil est là, le w-e aussi .... mauvaises conditions ......
Merci par avance
@+
GD

 

[michel]

bonjour Gerard

ci dessous le lien vers la demo de Ti

Lien supprimé


bon week end
michel

 

[michel]

rebonjour gerard

un autre lien sur le meme sujet

Lien supprimé


michel

 

[F.Launay]

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

 

[Gérard DEZAMIS]

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