Faire clignoter des cellules

bonjour,

Je voudrais faire clignoter les chiffres des cellules S5 a S900 sans changer leur couleurs

avec les critéres > 0 < 5

ce code est placer dans le module de la feuille "Achats_Jours"

Private Sub ThisWorkbook_Activate()
 Clignote
End Sub

ce code est placer dans un module normal

Sub Clignote()
  If ActiveSheet.Name = "Achats_Jours" Then
   Application.OnTime Now + TimeSerial(0, 0, 1), "Clignote"
   ThisWorkbook.Sheets("Achats_Jours").Range ("S5;S900") > 0 < 5 - ThisWorkbook.Sheets("Achats_Jours").Range("S5;S900")
  End If
End Sub

je joins une feuille

Je vous d'avance de vos réponses

Cordialement

Bonjour,

Une personne pourrait elle m'aidé ce serai sympa

merci pour vos réponse

Cordialement

Bonjour target,

Impossible d'ouvrir ton fichier test.xls quelque soit la version d'excel...

Bonjour,

Merci pour ta réponse

Lorsque je clique sur le fichier je fais ouvrir et ensuite à la question je répond oui et il s'ouvre

Cordialement

Bonjour;

Je redemande votre aide le fichier à été créer avec Excel 2010 mais sauvegarder sous format Excel 97 2003 pour être compatible avec la version du fichier sauvegarder par sap

Merci d'avance

Cordialement

J'ai beau essayer, que se soit sous 2003 ou sous 2013, ton fichier ne peut s'ouvrir, essai de mettre ta version 2010 pour voir.

A moins que ton fichier ne soit endommagé.

Bonjour,

je met un autre fichier j'espere que ça ira je n'aie mis aucun code

Cordialement

J'ai pu ouvrir le fichier mais je n'arrive pas non plus à faire une macro qui fasse clignoter la plage souhaitée.

Est tu sûr de vouloir faire clignoter les cellules et qu'une simple MFC ne suffirait pas ?

Vu la taille de ta plage je pense que ça peut être visuellement peu agréable tout ces clignotements.

Bonjour,

merci pour ta réponse Je vais suivre ton conseil je vais utiliser une MFC

Cordialement